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1. Einleitung 


Vielleicht ergeht es Ihnen ähnlich wie uns, als wir das erste Mal 
mit dem Amiga konfrontiert wurden: Staunen, Verwunderung, 
Verblüffung. Ja, dies ist wirklich eine Supermaschine - doch 
unter der Flut von Möglichkeiten drohte unser Programmiereifer 
im Keime zu ersticken. Wo soll man denn beim Amiga anfangen; 
wie ihn jemals verstehen? 

Mittlerweile haben wir uns mit dem Amiga mehrere Monate 
beschäftigt, und das Ergebnis liegt vor Ihnen: sie finden eine 
Reihe von Programmen, die Sie leicht verständlich Stück für 
Stück die Fähigkeiten des Amigas erschließen lassen. 

Der erste Teil dieses Buches arbeitet mit Microsoft’s AmigaBA- 
SIC und seiner Programmierung. Das Hauptgewicht wurde auf 
die Nutzung der bestehenden System-Software-Module gelegt, 
und so finden Sie Routinen zur Nutzung der verschiedenen 
Schriftarten, eine Grafikbildschirm-Hardcopy-Routine, einen 
Diskmonitor usw. 

Im zweiten Teil kommt H C H zum Zuge. Anhand vieler Beispiele 
werden die Grundzüge der Amiga-Systemarchitektur nicht nur 
theoretisch erklärt, sondern auch durch funktionsfähige Pro¬ 
gramme belegt. So dürfte es für Sie nicht lange dauern, mit der 
Programmierung der Menüs, Windows und Requesters vertraut 
zu werden. Und wenn all dies nichts Neues für Sie ist, wie wär’s 
dann mit Programmen zum neuen Half-Brite-Modus, mit dem 
sich 64 Farben gleichzeitig darstellen lassen und der erst nach 
Drucklegung der Amiga-Handbücher implementiert wurde? 


15 Fragen zum Amiga 

Nach einigen Gesprächen mit frischgebackenen Amiga-Besitzern 
stellten wir fest, daß einige Fragen immer wieder auftauchen. 
Da wir davon ausgehen, daß auch viele von Ihnen sich diese 
Fragen stellen werden, geben wir Ihnen hier Antwort. 
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Frage 1: Was ist das CLI? 

Antwort: CLI steht für Command Line Interface. Es ist eine Be¬ 
nutzeroberfläche, die sich ohne die vielen bunten Symbole 
(Icons) und ohne Maus ganz auf die Tastatur verläßt. Das CLI 
kennt im Moment ca. 50 verschiedene Befehle (Workbench Ver¬ 
sion 1.2), es werden aber in Zukunft noch viele weitere dazu 
kommen. 

Das CLI arbeitet eng mit AmigaDOS, dem Disk Operating Sy¬ 
stem, zusammen. Viele Spezialbefehle erleichtern den Umgang 
mit Disketten; einige Funktionen lassen sich sogar mit Intuition 
Fenster- und Maus-Technik überhaupt nicht lösen. 

Das CLI wird normalerweise vom Benutzer via Intuition aufge- 
rufen. Es ist aber auch möglich, beliebige CLI-Kommandos von 
BASIC-Programmen aus zu benutzen (dasselbe gilt für "C"). 


Frage 2: Wie gelange ich zum CLI? 

Antwort: Das Command Line Interface befindet sich serienmäßig 
auf jeder Workbench-Diskette. Es gibt eine Reihe von Wegen, 
um an’s CLI heranzukommen: 

a) Mit Intuition. Dies ist der Normalfall. Sie haben Ihr 
System gebootet, die Workbench-Diskette befindet 
sich im Laufwerk. Vor Ihnen liegt nun der tiefblaue 
"Workbench-Screen". Folgen Sie diesen Schritten: 

Klicken Sie den Disk-Icon der Workbench-Disk an. 

Es wird sich ein Fenster namens "Workbench..." mit 
allerlei Dingen darin öffnen. 

Klicken Sie die Schublade "System" an. 
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Es wird sich ein Fenster namens "System" eröffnen, 
wiederum randvoll gefüllt mit den Errungenschaften 
unserer heutigen Leistungsgesellschaft, vor allem 
aber mit einem Icon namens "CLI", das entweder ”1)" 
darstellt (Version 1.1) oder ein nettes kleines Fenster 
mit 1) darin (Version 1.2 und darüber). 

Sollten Sie KEIN CLI-Icon vorfinden, so liegt das 
daran, daß bei Ihrer Workbench-Diskette noch die 
Kindersicherung eingeschaltet war. Klicken Sie in 
diesem Fall das Icon "Preferences" im "Work- 
bench..."-Fenster an, und schalten Sie im Feld CLI 
von OFF auf ON. Saven Sie am besten das Ergebnis 
mit SAVE gleich wieder ab. Nun müssen Sie das 
"System"-Fenster schließen und erneut öffnen. Und 
siehe da: Ein CLI-Icon! 

Klicken Sie das CLI-Icon an. 

Es wird unverzüglich ein Fenster namens "New CLI" 
erscheinen, das Sie in alle Richtungen vergrößern 
und -kleinern können, das jedoch keinen Ausknips- 
Knopf in der linken oberen Ecke besitzt. Sie haben 
es geschafft! Sie haben Ihr eigenes CLI! 

b) Mit AmigaDOS. AmigaDOS verfügt über den Befehl 
"Execute", mit dem beliebige CLI-Befehle ausgeführt 
werden können. AmigaDOS wiederum kann über die 
systeminternen Libraries angesprochen werden. Auf 
diese Art und Weise kommen selbst AmigaBASIC 
und "C" ans CLI (siehe Beispielprogramme in diesem 
Buch). 

c) Noch raffinierter! Ein ganz einfacher Weg ist der 
folgende: Sie haben gerade Ihr System eingeschaltet. 
Die Kickstart-Disk ist bereits erfolgreich geladen 
worden, nun flimmert eine gigantische Hand mit 
einer Workbench-Disk darin auf dem Bildschirm. Bis 
jetzt ist alles Routine. Aber jetzt! Legen Sie die 
Workbench-Disk ins Laufwerk. Die Hand 
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verschwindet, das System bootet. Geben Sie nun 
rasch "Tobi ist lieb!" über die Tastatur ein! Nun 
brauchen Sie nur noch zu warten, bis das Laufwerk 
zum Stillstand gekommen ist. Ist die rote Lampe er¬ 
loschen, dann nehmen Sie die Workbench-Disk rasch 
aus dem Laufwerk. Löschen Sie nun "Tobi ist lieb!" 
wieder mit der BACKSPACE-Taste. Sobald der 
letzte Buchstabe getilgt ist, treten eine Reihe Feh- 
lerrequester auf. Beachten Sie sie einfach nicht, son¬ 
dern klicken Sie resolut immer wieder auf CANCEL. 
Endlich erscheint ein 

1 ) 

auf dem Bildschirm - das CLI! Geben Sie schnell 
noch 


1) loadwb 

ein, und das CLI steht zu Ihrer vollen Verfügung! 


Frage 3: Wie kriege ich das CLI wieder weg? 

Antwort: Das CLI-Fenster hat keinen Ausschalter. Es löst sich 
mit folgender Eingabe von selbst in Wohlgefallen auf: 

1) endcli 

Haben Sie von einem CLI aus Programme gestartet, dann bleibt 
das CLI-Fenster allerdings solange erhalten, wie die Programme 
laufen. 

Frage 4: Ich habe keine Schreibmaschine, aber einen an meinen 
Amiga angeschlossenen Drucker. Kann man da nichts machen? 

Antwort: Na klar! Das CLI ist der geborene Problemlöser. Geben 
Sie folgendes CLI-Kommando ein: 


1) copy * to prt: 
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wobei * das Symbol des aktiven CLI-Fensters ist. Nach dieser 
Eingabe verschwindet der gewohnte CLI-Prompt "1)", lediglich 
der Cursor hält Ihnen die Treue. Jede Tastatureingabe wird nun 
nach Druck der RETURN-Taste auf den Drucker ausgegeben - 
quasi eine Schreibmaschine mit einzeiligem Korrekturspeicher! 

Aus dem Schreibmaschinen-Modus kommen Sie wieder heraus, 
wenn Sie gleichzeitig die CTRL- und \-Taste drücken. 

Je nach Lust und Laune können Sie übrigens auch Text in ein 
anderes Fenster kopieren... 

1) copy * to CONtlO/10/300/100/Kopie-Text 

...oder sich selbst wiederholen... 

1) copy * to * 


Frage 5: Ich besitze nur ein Diskettenlaufwerk. Jedes Mal, wenn 
ich einen CLI-Befehl verwende, muß ich kurz die Workbench- 
Diskette einlegen. Kann man das nicht verhindern? 

Antwort: Jedes CLI-Kommando ist auf der Workbench-Disk als 
kleines Programm im Directory "c:" abgespeichert. Wenn Sie nun 
einen CLI-Befehl verwenden, lädt Amiga diesen normalerweise 
jedesmal von der Workbench-Disk nach. Dadurch spart man 
natürlich eine Menge Speicherplatz, denn die CLI-Kommandos 
belegen so keinen Systemspeicher. Auf der anderen Seite muß 
man laufend Disketten wechseln, wenn man nur über ein 
Laufwerk verfügt. 

Wenn Sie über genügend Speicher verfügen, können Sie aber alle 
(oder selektierte) CLI-Befehle ins RAM kopieren. Das geht so: 

1) makedir ram:c 
1) copy sys:c to ram.c 
1) assign c: ram:c 
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Zunächst wird in der RAM-Disk ein Unterdirectory namens "c" 
angelegt. Anschließend werden alle CLI-Befehle in dieses Di¬ 
rectory kopiert. Schließlich wird Amiga mitgeteilt, daß das 
Kommando-Directory c: nun auf der RAM-Disk liegt. 

Ist Ihnen der Speicher Ihres Rechners doch noch zu schade, 
dann können Sie sich auf die meistbenutzten CLI-Kommandos 
beschränken. Zum Beispiel so: 

1) makedir ram:c 
1) copy sys:c/copy to ram:c 
1) copy sys:c/dir to ram:c 
1) copy sys:c/list to ram.c 
(...) 

1) assign c: ram:c 

Wollen Sie wieder zurück zur Workbench-CLI, dann funktioniert 
das in jedem Fall (sofern Sie die Workbench-Disk in Laufwerk 
0, das eingebaute, legen): 

1) dfO:c/assign c: df0:c 

Nach Beendigung Ihrer Vorhaben empfiehlt es sich, das RAM- 
CLI wieder zu löschen, um Speicherplatzreserven zurückzube¬ 
kommen: 


1) delete ram:c#? 
1) delete ram:c 


Frage 6: Gibt es einen Joker, vergleichbar dem * bei alten 
Commodore-Rechnern? 

Antwort: Ja, es handelt sich um die Symbolkombination #?. Das 
Zeichen * repräsentiert ja bereits das aktuelle CLI-Fenster. 

1) delete ram:#? 


löscht die gesamte RAM-Disk. 
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1) run amig #? 

funktioniert jedoch beispielsweise nicht, denn Amiga weiß 
nicht, welches Programm ausgeführt werden soll. Es könnten ja 
mehrere Programme existieren, die mit der Buchstabenkombina¬ 
tion "amig” beginnen. 


Frage 7: Ich möchte gern eine Liste aller CLI-Befehlsworte auf 
den Drucker ausgeben. Geht das? 

Antwort: Das funktioniert mit einer einfachen Befehlskombina¬ 
tion: 


1) list quick sys:c to prt: 

Die Option M quick" bewirkt, daß nur die Befehlsnamen ausgege¬ 
ben werden. Erschaffungsdaten, Uhrzeit, Schutzstatus sowie Fi¬ 
legröße werden nicht ausgedruckt. Die CLI-Befehle selbst stehen 
im Unterdirectory c: des Systemdirectorys sys:. 

Schneller geht es, wenn Sie die Multitasking-Fähigkeiten Ihres 
Amigas ausnutzen: 

1) run list quick sys:c to prt: 

Hier wird ein weiterer Task eröffnet, der die Druckerausgabe 
bewerkstelligt. Sie können also gleich mit anderen Sachen Wei¬ 
terarbeiten, während Ihr Amiga quasi im Hintergrund die Be¬ 
fehlsworte ausgibt. 


Frage 8: Gibt es eine Möglichkeit, die Befehlssyntax eines be¬ 
stimmten CLI-Befehls herauszufinden? 

Antwort: Fast alle CLI-Befehle verfügen über eine Eingabehilfe. 
Falls Sie also nicht mehr genau wissen, wie ein spezieller Befehl 
aufgerufen wird, dann geben Sie einfach den Befehlsnamen, 
gefolgt von einem Leer- und einem Fragezeichen ein. Zum 
Beispiel: 
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1) list ? 


Das Ergebnis ist: 

DIR,P=PATH/K,KEYS/S,DATES/S,NODATES/S,TO/K,S/K, 
SINCE/K, UPT0/K,QUICK/S: 

Na, alles klar? 

DIR steht für ein Directory, kann aber auch weggelassen werden 
(dann wird das augenblickliche Directory ausgegeben). Alle 
weiteren Angaben enthalten neben dem Optionswort eine Bedin¬ 
gung: 

/A: Dieses Argument muß angegeben werden. 

/K: Dieses Argument muß in Verbindung mit einem Pa¬ 
rameter gegeben werden. 

/S: Dieses Argument steht für sich allein. 

So sind die folgenden Kommandos möglich: 

1) list dfO: keys nodales 

Gibt das Inhaltsverzeichnis "dfO:" mit den jeweiligen Anfangs¬ 
blöcken, jedoch ohne Datumsangabe aus. 

1) list dfO: since 04-Oct-86 upto today 

Gibt die Programme des Inhaltsverzeichnisses "dfO:" aus, die 
zwischen dem 4. Oktober 1986 und heute geschrieben worden 
sind. 


Frage 9: Wie lassen sich CLI-Kommandos unterbrechen? 

Antwort: CTRL-C unterbricht einen Befehl. CTRL-D veranlaßt 
einen Execute-Befehl, so schnell wie möglich den Programmab- 
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lauf zu unterbrechen. CTRL-E und CTRL-F werden nur in 
ganz besonderen Fällen gebraucht. 


Frage 10: Ich verfüge über ein Laufwerk und möchte ein Pro¬ 
gramm kopieren. Wie funktioniert das? 

Antwort: Erste Möglichkeit: Es handelt sich um ein kleines Pro¬ 
gramm. Laden Sie es zunächst in die RAM-Disk: 

1) copy Programm to ram: 

1) copy c/copy to ram: 

Der Copy-Befehl wurde in der zweiten Anweisung ebenfalls 
kopiert, um zu verhindern, daß die Workbench nachgelegt 
werden muß. Legen Sie nun die Zieldiskette ins Laufwerk. An¬ 
schließend wird das Programm zurückkopiert: 

1) ram:copy ram:Programm to dfO: 

Legen Sie nun bitte wieder die Workbench-Disk ein. Die RAM- 
Disk muß nur noch gelöscht werden, und schon sind wir fertig: 

1) delete ram:#? 

Eine andere Methode bedient sich der Intuition-Icons. Sie müs¬ 
sen dazu zunächst die Originaldiskette einlegen und den Disk- 
Icon anklicken. Sobald das Icon des gewünschten Programms 
erscheint, legen Sie die Zieldiskette ein. Öffnen Sie auch diese 
durch Anklicken des Disk-Icons. Nun können Sie das Icon des 
Originalprogramms mit Hilfe der Maus ins Fenster der Zieldis¬ 
kette bewegen. 

Der Rest geschieht automatisch per Requester: Die Disketten 
müssen ein paarmal gewechselt werden. 

Achtung: Es gibt Programme, die gar kein Icon besitzen. Sie er¬ 
scheinen also auch gar nicht als Symbol in einem Intuition-Fen- 
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ster. Sie können aber solch einem Programm ein Icon beschaf¬ 
fen! Legen Sie dazu die Workbench-Disk ein. Die folgenden 
Zeilen sind nötig: 

1) copy dfO:clock.info to ram: 

1) rename ram:clock.info as ram:programm.info 
1) copy c/copy to ram: 

Jetzt legen Sie die Diskette ein, auf der sich Ihr Originalpro¬ 
gramm befindet. Geben Sie nun ein: 

1) ram:copy ram:programm.info to dfO: 

Nun hat Ihr Programm (hier namens Programm) ein Icon. Legen 
Sie wieder die Workbench ein und löschen Sie die RAM-Disk: 

1) delete ram:#? 


Frage 11: Ich habe zwei Laufwerke und möchte ein Programm 
kopieren. Ein leichtes Unterfangen? 

Antwort: Sicher. Es genügt eine CLI-Zeile: 

1) copy dfO:originalprogramm to dfl: 

Hierbei muß sich das Originalprogramm in Laufwerk 0 im Di¬ 
rectory dfO: befinden. 

Falls Ihr Programm ein Icon besitzt, dann muß auch dieses ko¬ 
piert werden: 

1) copy dfO:originalprogramm.info to dfl: 


Natürlich können Sie auch per Intuition das Programm-Icon di¬ 
rekt von einer Diskette zur anderen schieben (siehe Frage 10). 
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Frage 12: Ich möchte eine ganze Diskette kopieren. Wie geht 
das? 

Antwort: Mit dem Befehl "diskcopy". Es spielt dabei keine Rolle, 
ob Sie über ein- oder mehrere Drives verfügen. Achtung: Um 
ungewolltes Löschen der Original-Disk auf jeden Fall zu verhin¬ 
dern, sollten Sie den Schutzpin an der Seite der Originaldiskette 
zumindest für die Dauer des Kopierens nach oben schieben, falls 
dies noch nicht getan wurde. 

Sie besitzen EIN Laufwerk: 

1. Legen Sie die Workbench-Diskette ein. 

2. Tippen Sie den CLI-Befehl ein: 

1) diskcopy from dfO: to dfO: name "kopie" 

Nun erscheint die Aufforderung, die Quell-Diskette (SOURCE) 
einzulegen. Kommen Sie dem nach. Nach einer Weile muß die 
Ziel-Diskette (DESTINATION) eingelegt werden, und nach ein 
paar weiteren Wechseln haben Sie es geschafft. 

Sie besitzen ZWEI Laufwerke: 

1. Legen Sie die Workbench-Diskette ein. 

2. Tippen Sie den CLI-Befehl ein: 

1) diskcopy from dfO: to dfl: name "kopie" 

Stecken Sie nun gemäß der Aufforderung die Quell-Disk in 
Laufwerk 0, die Ziel-Disk in Laufwerk 1. Die Disketten 
brauchen natürlich nicht mehr gewechselt werden. 


Frage 13: Was ist eine Startup-Sequence und was kann man mit 
ihr machen? 

Antwort: Die Startup-Sequence ist eine Liste von CLI-Befehlen, 
die ganz zu Anfang beim Booten des Systems ausgeführt wird. 
Wie das aussieht, können Sie sich leicht veranschaulichen: 
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1) execute s/startup-sequence 
Sie können sich diese CLI-Befehle auch einmal anschauen: 

1) type s/startup-sequence 

Wenn Sie Lust haben, können Sie sich auch eine eigene Startup- 
Sequenz schreiben. Sie sollten jedoch beachten, daß das Kom¬ 
mando loadwb unbedingt übernommen wird, da sonst das Intui- 
tion-Icon-System nicht aktiviert wird. Sollten Sie dann einmal 
die CLI durch endcli verlassen, stehen Sie quasi vor zugeschla¬ 
gener Haustür, denn es wären keine Icons da, nur ein leerer 
Bildschirm. 

Eine eigene Startup-Sequenz kann man über das Kommando "ed" 
erstellen: 


1) ed s/startup-sequence 

Bei Version 1.2 der Workbench sehen Sie nun: 

echo "Workbench Diskette (Version 1.2/33.43)" 
echo " 11 

echo "(Datum und Uhrzeit mit 'Preferences' einstellbar)" 
if EXISTS sys:System 

path sys:System add 

end i f 

BindDrivers 
setmap d 
LoadWb 

endcli ) nil: 


Mit den Cursortasten können Sie den Cursor bewegen. Auf 
Druck der ESC-Taste landen Sie in der Kontrollzeile. Ein "d" 
löscht die Zeile, in der sich der Cursor zuletzt befand. Löschen 
Sie beispielsweise die Anweisungen. 
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setmap d 
endcli ) nil: 

Nun saven Sie die Sequenz wieder durch Druck auf die ESC- 
Taste und anschließend "x". 

Probieren Sie die neue Sequenz doch gleich mal aus! 

1) execute s-startup-sequence 

Wie Sie sehen, haben Sie wieder eine amerikanische Tastaturbe¬ 
legung, und das CLI-Fenster ist auch nicht verschwunden. 


Frage 14: Kann der Amiga im CLI sprechen? 

Antwort: Sicherlich, wenngleich man auch keine Parameter ver¬ 
ändern kann. Das Kommando heißt "say" und wirkt wie ein 
Print-Kommando. Leider ist es unmöglich, Programm-Files aus¬ 
sprechen zu lassen. Lediglich unmittelbar nachfolgender Text 
wird verlesen: 


1) say tobi is a real nice guy! 

Interessant ist dieser Befehl auch in Zusammenhang mit der 
Startup-Sequenz (Frage 13)! Stellen Sie sich vor, Ihr Amiga be¬ 
grüßt Sie jedesmal nach dem Einschalten mit einem netten 
"Guten Tag!". 


Frage 15: Wie kann ich ein C-Listing auf den Drucker ausge¬ 
ben? 

Antwort: Am besten geschieht dies mit dem CLI-Befehl type. 
Ein Beispiel: Sie haben ein C-Listing, erstellt wahrscheinlich mit 
ed unter dem Namen test.c auf dfl:. Geben Sie nun ein: 


run type dfl:test.c to prt: opt n 
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Mit "run" nutzen Sie die Multitasking-Fähigkeit des Amigas - 
während der Drucker lustig rattert, können Sie schon wieder et¬ 
was anderes fabrizieren. Der Zusatz "opt n" sorgt dafür, daß der 
Ausdruck des C-Listings mit Zeilennummern versehen wird. 
Dies ist recht hilfreich bei der Fehlersuche. 
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2. Das AmigaBASIC 


BASIC (Beginners All Purpose Symbolic Instruction Code) war 
ursprünglich ein Produkt der Verzweiflung. Es geschah in der 
Zeit, als Computerprogramme noch in mühsamer Kleinarbeit 
assembliert werden mußten und Compiler auch keine Alternative 
für Anfänger darstellten, da man nach jedem Programmierfehler 
von vorn beginnen mußte. Ein findiger Mensch am Dartmouth 
College dachte etwas nach und entwickelte eine besonders "an¬ 
fängerfreundliche" Sprache, die einen aus englischen Worten be¬ 
stehenden Befehlssatz beinhaltete und ohne Compilierung aus¬ 
kam. BASIC war geboren, und das Konzept des "Symbolic In¬ 
struction Code" hat sich bewährt: Heute ist BASIC die am häu¬ 
figsten benutzte Programmiersprache der Welt. 

BASIC wurde im Laufe der Jahre erweitert, verbessert, ausge¬ 
dehnt. Ein fortschrittliches BASIC, wie es das AmigaBASIC ist, 
verbindet nun die leichte Erlernbarkeit der Befehlsworte mit den 
Vorzügen der strukturierten Programmierung, wie es das geübte 
Auge bisher nur von Compilern gewohnt war. BASIC ist "er¬ 
wachsen" geworden; mühelos kann der einst so gefürchtete Spa- 
ghetti-Code umschifft werden und Programme lassen sich auch 
noch nach Jahren verstehen, nachvollziehen und gegebenenfalls 
verändern. 

AmigaBASIC stammt aus dem Hause Microsoft, und Computer¬ 
freaks werden jetzt sicher die Ohren spitzen. Sollte es möglich 
sein, daß Microsoft (eine Firma, die für jeden nur erdenklichen 
Computer qualitativ hochwertige BASIC Interpreter vorrätig hat) 
einen Interpreter speziell für den Amiga und seine Fähigkeiten 
entwickelt hat? Leider ist dem nicht so. Vielmehr handelt es sich 
um eine an den Amiga angepaßte Version des Microsoft-BASICs 
für den Macintosh. Zwar wird Amiga’s moderne Window- und 
Menü-Technik voll unterstützt, aber trotzdem werden lange Ge¬ 
sichter nicht vermieden werden können. Was ist mit dem "Hold- 
And-Modify"-Modus passiert? Wurden die Disk-Zeichensätze 
vergessen? Wo sind die ausführlichen Disketten- und Synthe¬ 
sizer-Befehle? Bevor Sie sich jetzt voller Entrüstung abwenden, 
muß zu Microsofts Ehrenrettung der in dieser Form revolutio- 
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näre "LIBRARY"-Befehl vorgeschoben werden. Mit seiner Hilfe 
werden Sie die fehlenden Befehle leicht nachträglich implemen¬ 
tieren können. Wie’s geht erfahren Sie im zweiten Teil dieses 
Kapitels. 

Bevor wir in die Tiefen des BASIC Interpreters hinabtauchen, 
wollen wir darauf hinweisen, daß vor Ihnen das Buch "Amiga 
Tips&Tricks" von DATA BECKER liegt. Bitte erwarten Sie kein 
langweiliges und -wieriges BASIC-Handbuch. Die folgenden 
Seiten beschäftigen sich mit speziellen, ungewöhnlichen, revolu¬ 
tionären Programmen und Techniken, die Programmierkenntnis 
voraussetzen (die ausgedruckten Programme laufen natürlich 
immer, egal ob sie verstanden worden sind oder nicht). In 
Zweifelsfällen ziehen Sie bitte das Handbuch für AmigaBASIC 
oder das AmigaBASIC-Buch von DATA BECKER zu Rate. 


2.1 Der Amiga und der Rest der Welt 

Weil das AmigaBASIC so ungeheuer flexibel ist, ist es wichtig, 
sich zunächst einmal mit dem Aufbau des Amiga-Betriebssy- 
stems auseinanderzusetzen. 

Das Amiga Kernel ist in System Modulen zusammengefaßt, die 
zusammen eine Hierarchie bilden. Ganz unten steht die Hard¬ 
ware, die letztendlich die Arbeit erledigt. Darüber gibt es 
verschiedene Interpretationsstufen. Level 2 ist am ma¬ 
schinennächsten und steuert die Hardware. Die Stufe darüber 
nimmt bereits an Komplexität zu und die Kommandos werden 
mit zunehmender Stufe immer besser für den Menschen 
verständlich. 

An der Spitze der Pyramide finden Sie die Schnittstelle zum 
Menschen, am Boden der Hierarchie befindet sich die Schnitt¬ 
stelle zur Maschine. Alle System-Module dazwischen sorgen für 
die schrittweise Umsetzung der Eingabe in eine für den Amiga 
verständliche Befehlskette. Die einzelnen Verästelungen sorgen 
dafür, daß alle Hardware-Komponenten (CPU, Disk, Grafik¬ 
chips) genau die Anweisungen bekommen, für die sie zuständig 
sind. 
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In unserem Fall bietet AmigaBASIC normalerweise die Schnitt¬ 
stelle zum Menschen, denn Sie geben in den Computer BASIC- 
Befehlswörter ein (wenn Sie zum Beispiel mit dem CLI arbeiten, 
dann wird dieses die Schnittstelle zum Menschen). 

AmigaBASIC läßt jedoch sehr flexible Programmierung zu. Ne¬ 
ben der Benutzung der BASIC-Befehle besteht die Möglichkeit, 
sich in der Hierarchie herabzuarbeiten und System-Module di¬ 
rekt anzusprechen. Je weiter Sie sich herabarbeiten, desto ma¬ 
schinennäher werden die benötigten Anweisungen sein (desto 
komplizierter also), desto mehr Spielraum werden Sie aber auch 
haben. So können Sie durch direkten Zugriff auf die System- 
Module Funktionen programmieren, für die Sie keinen äquiva¬ 
lenten BASIC-Befehl finden würden. Zum Beispiel die Be¬ 
nutzung der Disk-Zeichensätze in BASIC. 

Jedes der System-Module besteht aus einer Befehlslibrary. Diese 
enthält eine Vielzahl von Maschinenroutinen für die verschie¬ 
densten Dienste. Der Befehl 

OpenDiskFontCtextAttr) 

öffnet beispielsweise einen neuen Zeichensatz, vorausgesetzt, die 
richtigen Informationen werden mitgeliefert. 


2.2 Implementierung der Amiga-Kernel-Befehle 

Wie gesagt, bei den System-Modul-Kommandos handelt es sich 
um Maschinensprache-Routinen, die selbst AmigaBASIC nicht 
ohne weiteres versteht. Für jede Library, die Sie mit Hilfe des 
"LIBRARY"-Befehls in Ihrem Programm nutzen wollen, muß ein 
spezielles Definitionsfile existieren (siehe auch AmigaBASIC 
Handbuch Anhang F). Das Amiga-Betriebssystem verfügt derzeit 
über 13 Libraries, aber nur 5 sind für BASIC wirklich interes¬ 
sant. Es sind dies: 



AMIGA Tips & Tricks 


30_ 

1. exec.library 

Zuständig für Tasks, Listen, I/O, allgemeine System¬ 
belange, Speicherverwaltung 

2. graphics.library 

Zuständig für Text und "GELs" (graphic elements) 

3. intuition .library 

Zuständig für Windows, Screens und Requesters, 
Alarmmeldungen 

4. dos.library 

Zuständig für elementare Disk-Befehle 

5 . diskfont. library 

Zuständig für die auf Disk gespeicherten Zeichen¬ 
sätze des Amigas 


2.2.1 Das Anpassungsfile ".bmap" 

Ein Definitionsfile enthält für jeden Befehl, der im System-Mo¬ 
dul liegt, die folgenden Informationen: 

a) Name des Befehls (in ASCII), mit 0 abgeschlossen. 

b) Offset des Befehls in der System-Modul-Tabelle 

c) Übergabe-Register 


1 = Datenregister dO 

2 = Datenregister dl 

3 = Datenregister d2 

4 = Datenregister d3 

5 = Datenregister d4 




Das AmizaBASIC 


31 


6 = Datenregister d5 

7 = Datenregister d6 

8 = Datenregister d7 

9 = Adreßregister aO 

10 = Adreßregister al 

11 = Adreßregister a2 

12 = Adreßregister a3 

13 = Adreßregister a4 

mit "0" abgeschlossen. 


Für die "graphics.library" und "dos.library" gibt es diese Files 
bereits. Sie sind als "graphics.bmap" und "dos.bmap" im Directory 
"Basic Demos" auf der "Extras"-Diskette zu finden. Allerdings 
läßt sich "dos.bmap" größtenteils in BASIC nicht benutzen, da 
die dort definierten Befehlsnamen mit bereits bestehenden BA- 
SIC-Kommandos kollidieren (z.B. Open, Read, etc.). 

Nutzen Sie deshalb einfach die nachfolgenden vier BASIC- 
Loader, die die nötigen ".bmap"-Files generieren. Haben Sie 
diese erst einmal auf Diskette, dann können die Loader wieder 
gelöscht werden. Wir raten trotzdem davon ab, da sie zu Kon- 
trollzwecken recht nützlich sind. 
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REM ****** ********************************** 
REM * exec .bmap linker file GENERATOR * 

REM * written 6/23/86 b y tobias weltner * 
REM *-* 

Pi ^ ^ ^ ^ ^ ^ ^ ^ ^ jjj^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

REM * (C) 1986 by DATA BECKER GmbH W.-Germ.* 
REM **************************************** 


Header: 

PRINT "[exec.bmap] linker file GENERATOR" 


FunctionDefinitions: 

DATA InitCode,72 

DATA InitStruct,10,11,1,78 

DATA MakeLibrary,10,11,12,1,2,84 

DATA MakeFunctions,90 

DATA FindResident,96 

DATA InitResident,102 

DATA Alert,108 

DATA Debug,114 

DATA Disable,120 

DATA Enable,126 

DATA Forbid,132 

DATA Permit,138 

DATA SetSR,1,2,144 

DATA SuperState,160 

DATA UserState,1,156 

DATA SetlntVector,1,10,162 

DATA AddlntServer,1,10,168 

DATA RemlntServer,1,10,174 

DATA Cause,10,180 

DATA Allocate,10,1, 186 

DATA Deallocate,10,11,1,192 

DATA AllocMem,1,2,198 

DATA AllocAbs,204 
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DATA FreeMem,10,1,210 
DATA AvailMem,2,216 
DATA AllocEntry,9,222 
DATA FreeEntry,9,228 
DATA Insert,9,10,11,234 
DATA AddHead,9,10,240 
DATA AddTail,9,10,246 
DATA Remove,10,252 
DATA RemHead,9,258 
DATA RemTail,9,264 
DATA Enqueue,9,10,270 
DATA FindName,9,10,276 
DATA AddTask,10,11,12,282 
DATA RemTask,10,288 
DATA FindTask,10,294 
DATA SetTaskPri,10,1,300 
DATA SetSignal,1,2,306 
DATA SetExcept,1.2,312 
DATA Walt,1,318 
DATA Signal,10,1,324 
DATA AllocSignal,1,330 
DATA FreeSignal,1,336 
DATA AllocTrap,1,342 
DATA FreeTrap,1,348 
DATA AddPort,10,354 
DATA RemPort,10,360 
DATA PutMsg,9,10,366 
DATA GetMsg,9,372 
DATA ReplyMsg,10,378 
DATA WaitPort,9,384 
DATA FindPort,10,390 
DATA AddLibrary,10,396 
DATA RemLibrary,10,402 
DATA OpenLibrary,10,1,408 
DATA CloseLibrary,10,414 
DATA SetFunction,10,9,1,42 0 
DATA SurnLibrary, 10,426 
DATA AddDevice,10,432 
DATA RemDevice,10,438 
DATA OpenDevice,9,1,10,2,444 
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DATA CloseBevice,10,450 
DATA Do 10,10,456 
DATA SendIO,10,462 
DATA ChecklO,10,468 
DATA WaitIO,10,474 
DATA AbortIO,480 
DATA AddResource,10,486 
DATA RernResource , 10,492 
DATA OpenResource,10,498 
DATA GetCC,528 
DATA end_of_functions 

RESTORE FunctionDefinitions 

OPEN ”exec. bmap” FOR OUTPUT AS 1 

ReadLibFunc: 

READ Routine$ 
gencount=gencount+1 
LOCATE 3,1 

PRINT ”PROCESS: Reading FUNCTION: *'; Routine$+SPACE$ (2 

0-LEN(Routine$)) 

IF Routine$= M end_of_functions” THEN ShutDown 

counter-0 

ReadLoop: 

READ value(counter) 

IF value(counter)<20 THEN 
counter=counter+1 
GOTO ReadLoop 
ELSE 

of f s et= value(counter) 
counter=counter-1 
END IF 

offset=65536&-offset 
off 1=INT(offset/256) 
off2 = offset- (256*off1) 
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lib$=Routine$+CHR$(0)+CHR$(off 1)+CHR$(off2) 

FOR loop=0 TO counter 

lib$= lib$+CHR$(value(loop)) 

NEXT loop 

lib$-lib$+CHR$(0) 

LOCATE 4,1 

PRINT "PROCESS: writing #:";gencount 

ges$-ges$+lib$ 

GOTO ReadLibFunc 

ShutDown: 

LOCATE 5,1 

PRINT "PROCESS: final phase - ":gencount-1; ” exec 
defined." 

PRINT#1,ges$ 

CLOSE 1 
LOCATE 7, 1 

PRINT ‘’exec.bmap now on disk. Bye-bye. " 

LOCATE 10,1 
END 


functions 
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REM * intuition.bmap linker file GENERATOR * 

REM * written 6/23/86 by tobias weltner * 
REM *-* 

REM * (C) 1986 by DATA BECKER GmbH W.-Germ.* 

Header: 

PRINT "[intuition.bmap] linker file GENERATOR" 


FunctionDefinitions: 

DATA AddGadget,9,10,1,42 
DATA AllocRemember,9,1,2,396 
DATA AutoRequest,9,10,11,12,1,2,3,4,348 
DATA BeginRefresh,9,354 

DATA BuildSysRequest,9,10,11,12,1,2,3,360 

DATA ClearDMRequest,9,48 

DATA ClearMenuStrip,9,54 

DATA ClearPointer,9,60 

DATA CloseScreen,9,66 

DATA CloseWindow,9,72 

DATA CloseWorkBench,78 

DATA CurrentTime,9,10,84 

DATA DisplayAlert,1,9,2,90 

DATA DisplayBeep,9,96 

DATA Doubleclick,1,2,3,4,102 

DATA DrawBorder,9,10,1,2,108 

DATA Drawlmage,9,10,1,2,114 

DATA EndRefresh,9,1,366 

DATA EndRequest,9,10,120 

DATA FreeRemember,9,1,408 

DATA FreeSysRequest,9,372 

DATA GetDefPrefs,9,1,126 

DATA GetPrefs,9,1,132 
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DATA InitRequester,9,138 

DATA IntuiTextLength,9,330 

DATA ItemAddress,9,1,144 

DATA MakeScreen,9,378 

DATA ModifylDCMP,9,1,150 

DATA ModifyProp,9,10,11,1,2,3,4,5,156 

DATA MoveScreen,9,1,2,162 

DATA MoveWindow,9,1,2,168 

DATA 0ffGadget,9,10,11,174 

DATA OffMenu,9,1,180 

DATA 0nGadget,9,10, 11,186 

DATA OnMenu,9,1,192 

DATA OpenScreen,9,198 

DATA OpenWindow,9,204 

DATA OpenWorkBench,210 

DATA PrintIText,9,10,1,2,2 16 

DATA RefreshGadgets,9,10,11,222 

DATA ReraakeDisplay,384 

DATA RemoveGadget,9,10,228 

DATA ReportMouse,9,1,234 

DATA Request,9,10,240 

DATA RethinkDisplay,390 

DATA ScreenToBack,9,246 

DATA ScreenToFront,9,252 

DATA SetDMRequest,9,10,258 

DATA SetMenuStrip,9,10,264 

DATA SetPointer,9,10,1,2,3,4,270 

DATA SetWindowTitles,9,10,11,276 

DATA ShowTitle,9,1,282 

DATA SizeWindow,9,1,2,288 

DATA ViewAddress,294 

DATA ViewPortAddress,9,300 

DATA WBenchToBack,336 

DATA WBenchToFront,342 

DATA WindowLimits,9,1,2,3,4,318 

DATA WindowToBack,9,306 

DATA WindowToFront,9,312 

DATA SetPrefs,9,1,2,324 

DATA AllohaWorkbench,9,402 

DATA end_of__functions 
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RESTORE FunctionDefinitions 

OPEN "Intuition.bmap" FOR OUTPUT AS 1 

ReadLibFunc: 

READ Routine$ 
gencount=gencount+1 
LOCATE 3 1 

PRINT "PROCESS: Reading FUNCTION: ”;Routine$+SPACE$(2 

0-LEN(Routine$)) 

IF Routine$="end„of„functions“ THEN ShutDown 

counter=0 

ReadLoop: 

READ value(counter) 

IF value(counter)<20 THEN 
counter=counter+1 
GOTO ReadLoop 
ELSE 

offset=value(counter) 
counter=counter-1 
END IF 

offset=65536&-offset 
off 1=INT(offset/256) 
off2=offset-(256*off1) 

lib$=Routine$+CHR$(0)+CHR$(off1)+CHR$(off2) 

FOR loop=0 TO counter 

lib$=lib$+CHR$(value(loop)) 

NEXT loop 

lib$=lib$+CHR$(0) 

LOCATE 4,1 

PRINT "PROCESS: writing #:";gencount 

ges$=ges$+lib$ 

GOTO ReadLibFunc 

ShutDown: 

LOCATE 5,1 

PRINT "PROCESS: final phase - " ; gencount-2;" intuition funct 
ions defined." 

PRINT#l,ges$ 

CLOSE 1 
LOCATE 7,1 

PRINT " intuition. broap now on disk. Bye-bye." 

LOCATE 10,1 
END 
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REM ************************* ***** ********** 
REM * dos .bmap linker file GENERATOR * 

REM ********************** *** ******** ******* 
REM * written 6/23/86 b y tobias weltner * 

REM *-* 

REM **************************************** 
REM * (C) 1986 by DATA BECKER GmbH W.-Germ.* 
REM **************************************** 

Header: 

PRINT " [dos. bmap] linker file GENERATOR*’ 


FunctionDefinitions: 

DATA DosClöse,2,36 

DATA DosCreateDir,2,120 

DATA DosCurrentDir > 2,128 

DATA DosDeleteFile,2,72 

DATA DosDupLock,2,96 

DATA DosExamine,2,3,102 

DATA DosExNext,2,3,108 

DATA DosGetPacket,2,162 

DATA Dos Info,2,3,114 

DATA Dos Input,54 

DATA DosIoErr,132 

DATA DosIsInteractive,2,216 

DATA DosLock,2,3,84 

DATA DosOpen,2,3,30 

DATA DosOutput,60 

DATA DosQueuePacket,2,168 

DATA DosParentDir,2,210 

DATA DosRead,2,3,4,42 

DATA DosRename,2,3,78 

DATA DosSeek,2,3,4,66 

DATA DosSetComment,2,3,180 

DATA DosSetProtection,2,3,186 

DATA DosUnLock,2,90 
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DATA DosWaitForChar,2,3,204 

DATA DosWrite,2,3,4,48 

DATA DosCreateProc,2,3,4,5,138 

DATA DosDateStarop,2,192 

DATA DosDelay,2,198 

DATA DosDeviceProc,2,174 

DATA DosExit,2,144 

DATA DosExeeute,2,3,4,222 

DATA DosLoadSeg,2,150 

DATA DosUnLoadSeg,2,168 

DATA end_of_functions 

RESTORE FunctionDefinitions 

OPEN ,l dos. bmap” FOR OUTPUT A3 1 

ReadLibFunc: 

READ Routine$ 
gencount=gencount+1 
LOCATE 3,1 

PRINT "PROCESS: Reading FUNCTION: ”;Routine$+SPACE$(2 

0-LEN(Routine$)) 

IF Routine$=“end„of_functions" THEN ShutDown 

counter=0 

ReadLoop: 

READ value(counter) 

IF value(counter)<20 THEN 
counter=counter+1 
GOTO ReadLoop 
ELSE 

offset=value(counter) 
counter=counter-1 
END IF 

offset=65536&-offset 
off 1=INT(offset/256) 
off2=offset-(256*off1) 
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lib$=Routine$+CHR$(0)+CHR$(off1)+CHR$ (off2) 

FOR loop-0 TO counter 

lib$=lib$+CHR$(value(loop)) 

NEXT loop 

lib$=lib$+CHR$(0) 

LOCATE 4,1 

PRINT "PROCESS: writing #:";gencount 

ges$~ges$+lib$ 

GOTO ReadLibFunc 

ShutDown: 

LOCATE 5,1 

PRINT ”PROCESS: final phase - ";gencount-2;" dos functions d 
efined. ” 

PRINT#l.ges$ 

CLOSE 1 
LOCATE 7,1 

PRINT "dos.bmap now on disk. Bye-bye. 

LOCATE 10,1 
END 
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REM ^fc***************:************* *********** 
REM * diskfont .bmap linker file GENERATOR * 

REM * written 6/23/86 b y tobias weltner * 
REM *-* 

REM * (C) 1986 by DATA BECKER GmbH W.-Germ. * 
REM **************************************** 

Header: 

PRINT ”[diskfont.bmap] linker file GENERATOR” 


FunctionDefinitions: 

DATA AvailFonts,9,1,2,36 
DATA OpenDiskFont,9,30 
DATA end_of_functions 

RESTORE FunctionDefinitions 

OPEN "diskfont.bmap” FOR OUTPUT AS 1 

ReadLibFunc: 

READ RoutineS 
gencount-gencount+1 
LOCATE 3 1 

PRINT ”PROCESS: Reading FUNCTION: ”;Routine$+SPACE$(2 

0-LEN(RoutineS)) 

IF Routine$=”end_of__functions” THEN ShutDown 

counter=0 

ReadLoop: 

READ value(counter) 

IF value(counter)<20 THEN 
counter=counter+1 
GOTO ReadLoop 

ELSE 

offset=value(counter) 
counter=counter-1 
END IF 
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offset=65536&-offset 
off 1=INT(offset/256) 
off2=offset-(256*off1) 

1 ib$=Houtine$+CHR$(0)+CHR$(off 1)+CHR$(off2) 

FOR loop=0 TO counter 

lib$=lib$+CHR$(value(loop)) 

NEXT loop 

lib$=lib$+CHR$(0) 

LOCATE 4,1 

PRINT "PROCESS: writing #:gencount 

ges$-ges$+lib$ 

GOTO ReadLibFunc 

ShutDown: 

LOCATE 5,1 

PRINT "PROCESS: final phase - gencount-2;" diskfont functi 
ons defined. M 
PRINT#1,ges$ 

CLOSE 1 
LOCATE 7,1 

PRINT "diskfont. braap now on disk. Bye-bye." 

LOCATE 10,1 
END 


Wichtig: Wenn Sie in Ihrem Programm eine oder mehrere Li¬ 
braries benutzen, dann müssen sich die entsprechenden ".bmap"- 
Files in demselben Directory befinden, da der BASIC-Befehl 
LIBRARY ansonsten eine "File not found"-Meldung ausgibt. 
Wenn Sie solche Programme auf andere Disketten kopieren, 
sollten Sie also immer dafür sorgen, daß auch die ".bmap"-Files 
kopiert werden. Unter AmigaBASIC können bis zu 5 Libraries 
gleichzeitig geöffnet sein. 


2.3 AmigaBASIC-Grafik 

Bereits im Jahre 1983 entstanden die ersten Gerüchte über einen 
Supercomputer der Firma Amiga. Wollte ihnen zunächst niemand 
Glauben schenken, so änderte sich dies schlagartig, als bekannt 
wurde, wer für Amigas drei Custom Chips und weite Teile der 
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übrigen Hardware zuständig war. Jay Miners Grafik-Chips für 
die Atari 400/800 Serie waren ein Begriff, als er sich bei Amiga 
ans Werk machte. 

Amigas Grafikfähigkeiten standen also von Anfang an im Mit¬ 
telpunkt und blieben von den vielen Änderungen im Konzept, 
die Amiga über sich ergehen lassen mußte, nahezu unberührt. 
Die drei Custom Chips Paula (Peripheral/Audio), Denise (Dis¬ 
play Encoder) und Agnus (Adressgenerator) wurden tatsächlich 
entwickelt und bilden nun die Grundlage für Ihr Grafikwunder. 

AmigaBASIC unterstützt die Amiga-Grafik fast hundertprozen¬ 
tig. Lediglich der fusselige Hold-And-Modify-Mode (4096 Far¬ 
ben gleichzeitig) sowie die neue Half-Brite-Technik (64 (fast) 
unabhängige Farben in low-res) sind (noch) nicht durch BASIC- 
Befehle programmierbar. Leider sind die Befehlsbeschreibungen 
zum Teil recht kurz ausgefallen, und so gibt’s gleich noch etwas 
dazu: 


2.3.1 Floodfill-Operationen 

Die Befehle PAINT und AREAFILL können in Bruchteilen ei¬ 
ner Sekunde beliebige Teile des Bildschirms ausfüllen. In ver¬ 
schiedenen Farben und Mustern natürlich. Die Geschwindigkeit 
dieser Operation, die bei anderen Computern durchaus Zeit zum 
Duschen lassen konnte, liegt beim Amiga an der besonderen 
Hardware-Architektur. Anstatt die ohnehin schwer schuftende 
68000-CPU mit weiterer Arbeit zu überhäufen wird der Auftrag 
an einen Koprozessor abgegeben, der völlig unabhängig von der 
CPU seine Arbeit erledigen kann. Es handelt sich um Jay Mi¬ 
ners "Blitter", der in "Agnus", einem der drei Amiga-Custom- 
Chips, vegetiert. Flächen können mit einer Million Bildpunkten 
pro Sekunde ausgefüllt werden. Ebenso schnell werden Linien 
gezogen. 
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2.3.2 Muster und mehr 

Mit dem AmigaBASIC-Befehl PATTERN können langweilige 
Linien in abwechslungsreiche Punktestränge verwandelt und 
gähnendweiße Kreise mit ausgefallenen Mustern gefüllt werden. 
Wieder ist der "Blitter" zuständig, der ja eigentlich viel mehr 
kann, als einfach Daten kopieren. 

Wie man den PATTERN-Befehl jedoch dazu bekommt, die ge¬ 
wünschten Muster zu produzieren, ist eine andere Frage. Im 
AmigaBASIC-Handbuch ist zwar ein Beispielprogramm abgebil¬ 
det, eine Dokumentation fehlt allerdings. Deshalb ein bißchen 
Hintergrund-Information: Für das Ziehen von Linien müssen Sie 
16 Beispielpunkte festlegen, die dann beim Ziehen einer Linie 
laufend wiederholt werden. Dasselbe gilt für gemusterte Flood- 
Fill-Operationen, wo Sie jedoch mehrere 16-Punkte-Beispiele 
übereinander stapeln können (da eine ausgefüllte Fläche 2-di- 
mensional ist, eine Linie jedoch nur eine Dimension besitzt). 
PATTERN benötigt nun hexadezimale oder dezimale Werte. Die 
folgende binäre Information für eine gepunktete Linie: 

müßte also zunächst umgerechnet werden: 

2 A 15+2 A 11+2 A 9+2 A 7+2 A 5+2 A 3+2 A 1 
= 43690 

Noch schwieriger wird es, wenn man versucht, diese Werte in 
einem Integer-Array unterzubringen, da dort alle Zahlen größer 
(2 A 15)-1 = 32767 negativ dargestellt werden müssen. Es handelt 
sich also um einen Zahlenkreis gegenüber dem üblichen Zahlen¬ 
strang. 

Die folgende Unterroutine, die Sie einfach in Ihre eigene Pro¬ 
gramme übernehmen können, beschert Ihnen die Funktion Set- 
Pattern, die alle Rechenarbeit für Sie übernimmt. Das Aufruf- 
Format lautet: 
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SetPattern nummer/'xxxxxxxxxxxxxxxx" 


nummer: Ist diese Nummer negativ, so wird das Aussehen von 
Linien verändert. Ist sie 0 oder positiv, dann handelt 
es sich um die Ebene der Fill-Definition. 

string: Der nachfolgende String enthält den Status der 16 

Bits, also das Aussehen Ihrer Definition. Ein be¬ 
deutet einen gesetzten Punkt, alle anderen Zeichen 
werden als gelöschter Punkt interpretiert. Obwohl die 
SUB-Routine dies notfalls ausgleichen kann, sollte der 
String immer 16 Zeichen enthalten. 

Programm-Größe: 1044 Bytes 


'SetPattern 


var: 


DIM SHARED AREA.PAT%(7) '2~8 Linien 


patDef: 


SetPattern 

SetPattern 

SetPattern 

SetPattern 

SetPattern 

SetPattern 

SetPattern 

SetPattern 

SetPattern 


3/’ 
7 \ " 


PATTERN LinePattern%, AREA.PAT% 
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Xoop: 

COLOR 2,0 'Zeichenfarbe schwarz 

r=INT(RND(l)*40)+30 '30...70 

x=INT(RND(l)*550)+50 '50...600 

y~ INT(RND(l)*130)+50 '50. . . 180 

CIRCLE (x,y),r 

PAINT (x,y),3,2 

COLOR 1,0 'Zeichenfarbe weiss 

CIRCLE (x,y),r 

GOTO loop 


StJB Set Pattern (numroer%, pat$) STATIC 

SHARED LinePattern% 

length=LEN(pat$) 
result=0 

FOR loop%-l TO length 

check$=MID$(pat$,loop%,1) 

IF check$=THEN 

result=result+2'’ (16-loop%) 

END IF 
NEXT loop% 

IF result>32767 THEN 
result^result-2"16 
END IF 

IF numraer%< 0 THEN 
LinePattern%=result 
ELSE 

AREA.PAT%(nummer%)=result 
END IF 

END SÜB 


Mögliche Fehlerquellen: 

TYPE MISMATCH bei einem Aufruf der SetPaltern-Funktion: 
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SetPattern erwartet eine Integer-Variable (-32768 bis +32767), 
ein Komma und einen String. Falls dies ordnungsgemäß erfolgte, 
so ist der Grund eine falsche Variablen-Angabe in der SUB- 
Deklaration. Fehlt das %-Zeichen hinter "nummer"? 

SUBSCRIPT OUT OF RANGE innerhalb der SUB-Routine: 

Es wurden zu Anfang des Programms durch DIM SHARED we¬ 
niger Elemente reserviert als durch SetPattern definiert. SetPat¬ 
tern 13,"***************" 5 e i nur 7 dimensionierten Elementen 
funktioniert beispielsweise nicht. Erhöhen Sie die Elemente in 
der DIMensionierung gemäß der Regel (2 A x)-l. 

ILLEGAL FUNCTION CALL bei Benutzung des PATTERN-Be- 
fehls: 

Hier ist die Lage eindeutig. Sie haben weniger als 2 A x Ebenen 
definiert. Die DIM SHARED Anweisung zu Anfang des Pro¬ 
gramms muß (2 A x)-l Elemente festlegen (0,l,3,7,15,31,63,etc.). 
Dies wurde hier unterlassen. 


Variablen-Felder: 

AREA.PAT%: Dieses Feld muß vor Gebrauch definiert werden. 

Es enthält die Definitionsebenen für Fill und 
muß immer 2 A x Ebenen beinhalten. Es gilt: DIM 
SHARED AREA.PAT%( (2 A x)-l ). Zwei Bei¬ 
spiele verdeutlichen das: 

DIM SHARED AREA.PAT%(3) ist zulässig ( 
3+l=(2 A 2) ) definiert 4 Ebenen. 


DIM SHARED AREA.PAT%( 5) ist unzulässig 
(5+1 kein Vielfaches von 2). 
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Variablen: 


LinePattern%: Enthält die Liniendefinition 


x,y,r bezeichnen x- und y-Koordinate des Demo- 

Kreises sowie den Radius 

nummer% ist die SUB-Variable für die Nummer der Ebene, 
die definiert werden soll 

pat$: Weitere SUB-Variable, enthält binäre Darstellung 

dieser Ebene 


length: SUB-Variable, Länge der pat$-Variable 

result: SUB-Variable, Dezimalwert binäre Maske in pat$ 


Ein Integer-Variablefeld AREA.PAT% wird angelegt und als 
SHARED dimensioniert. So stehen die Variablen auch SUB-Pro- 
grammen zur Verfügung.'Das Feld enthält 8 Elemente (2 A 3) und 
soll später die Definitionsebenen für die Fill-Operationen auf¬ 
nehmen. 

Es folgen die Definitionen, die den neuen SUB-Befehl SetPat- 
tern benutzen. Zuerst werden die acht Ebenen (0-7) für die 
Fill-Operationen mit Backstein-Mustern belegt, danach werden 
alle Linien (-1) mit einem wundervollen Punktemuster versehen. 
Es folgt der eigentliche PATTERN-Befehl, der die von SetPat- 
tern berechneten Variablen LinePattern% und AREA.PAT% 
einsetzt. 

Damit die Sache auch einen Sinn hat, folgt ab loop: ein kleines 
Beispielprogramm, das nach dem Zufallsprinzip Kreise auf den 
Bildschirm malt, die dann mit unserem geistvollen Backstein- 
Muster gefüllt werden. Mit dem PAINT-Befehl wird dabei 
zunächst ein schwarzer Kreis gezeichnet, den das Programm als 
Füllgebiet ansieht. Dann wird der Kreis wieder weiß eingefärbt, 
damit spätere schwarze Füllgebiete nicht behindert werden. Nur 
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so ist es von BASIC aus möglich, Strukturen ohne Rücksicht auf 
den Hintergrund vollständig auszufüllen. Falls Sie der schwarze 
Kreis stört, geben Sie bitte zu Anfang des Programms 

PALETTE 2,1,1,1 

ein. Dadurch wird die Farbe Schwarz auch weiß und fällt im 
Bild gar nicht mehr auf. 


2.3.3 Zeichenmodi verändern 

Ob Sie es bemerkt haben oder nicht: Der Amiga kennt vier ver¬ 
schiedene Zeichenmodi. Wenn Sie Grafik auf dem Bildschirm 
erzeugen, dann kann diese vom Rechner auf vier grundsätzliche 
Weisen interpretiert werden: 

JAM 1: Wenn Sie eine Grafik zeichnen (und dazu gehört auch 
die Ausführung eines einfachen PRINT-Befehls), dann wird nur 
eine Farbe, die Zeichenfarbe, ins Zielgebiet gemalt. Für jeden 
gezeichneten Punkt wird die Farbe an dieser Stelle verändert 
und alle anderen Punkte bleiben unberührt (nur eine Farbe wird 
ins Zielgebiet "gejammed"). 

JAM 2: Hier werden zwei Farben ins Zielgebiet gemalt. Ein ge¬ 
setzter Punkt wird in der Vordergrundfarbe (AmigaBASIC- 
Farbregister 1) gemalt, ein ungesetzter Punkt nimmt die Farbe 
des Hintergrundes an (AmigaBASIC-Farbregister 0). Der Gra¬ 
fikhintergrund wird also durch Ihre Aktionen beeinflußt, zwei 
Farben werden "gejammed". 

COMPLEMENT: Dieser Mode verfährt genau wie JAM1, jedoch 
wird der Punkt nicht mit AmigaBASIC-Farbregister 1 ausgefüllt, 
sondern invertiert (complemented). Ein ursprünglich gesetzter 
Punkt wird gelöscht, und umgekehrt. 


INVERSEVID: AmigaBASIC-Farbregister 0 und Farbregister 1 
werden einfach vertauscht. Die Folge ist das altbewährte Inver¬ 
tieren des Bildschirms. 
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Zusätzlich können alle vier Modi miteinander gemischt werden, 
also in JAM 1 |COMPLEMENT oder JAM2|COMPLEMENT|IN- 
VEREVID resultieren. Es stehen neun verschiedene 
Kombinationsmöglichkeiten zur Verfügung. Über den Sinn so 
mancher Kombinationen läßt sich bekanntlich streiten... 

AmigaBASIC besitzt zur Zeit keinen Befehl, um willkürlich den 
Zeichenmode zu verändern. Durch den LIBRARY-Befehl läßt 
sich dieser außerordentlich wichtige Befehl nachträglich imple¬ 
mentieren. Einzige Voraussetzung: Sie besitzen ein "gra- 
phics.bmap"-File zusammen mit AmigaBASIC auf Disk (näheres 
dazu beim bmap-Programmlisting am Anfang dieses Kapitels). 

Der in der "graphics.library" definierte Befehl SetDrMd (Set 
Draw Mode) läßt sich für unsere Zwecke ganz vorzüglich 
mißbrauchen. Er hat das Format: 


SetDrMd (RastPort,Mode) 

Die Variable RastPort muß einen Zeiger auf die RastPort- 
Struktur unseres Windows enthalten. Dieser Zeiger ist immer in 
WINDOW(8) gespeichert. Das AmigaBASIC-Format sieht also so 
aus: 


SetDrMd (WIND0W(8>,Mode) 


Mode: 


JAM1 : 0 

JAM2 : 2*0=1 

COMPLEMENT : 2*1=2 
1NVERSEVID : 2*2=4 

Um Modes zu mischen, addiert man einfach die entsprechenden 
Zahlen. Mode=3 entspricht z.B. JAM2|COMPLEMENT. Hier 
wird auch deutlich, wie verhindert wird, die absolut sinnlose 
Kombination JAM1|JAM2 zu selektieren: 0+1 bleibt 1. 
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'SetDrawMode 

LIBRARY "graphics.library” 
main: 


FOR anzahl%= 1 TC> 3 
LOCATE 1, 1 
FOR test%=0 TO 9 
SetDrawMode test% 

PRINT TAB(ansahl%)“HALLO!" 
LOCATE test%+130 
PRINT “Draw-Mode: “;test% 
NEXT test% 

NEXT anzahl% 

LIBRARY CLOSE 
END 


SUB SetDrawMode (rnode%) STATIC 
CALL SetDrMd&(WINDOW(8),raode%) 
END SUB 


2.3.4 Shadow-Print 

Vor einiger Zeit haben sich Fachleute Gedanken darüber ge¬ 
macht, wie man die Darstellungsqualität von Texten verbessern 
kann, die zum Beispiel bei der Sportreportage ins Fernsehbild 
geblendet werden. Man ist auf eine ebenso einfache wie erfolg¬ 
reiche Methode gekommen: Der Text wird einfach schattiert, 
wodurch der Kontrast natürlich erheblich verbessert wird. So 
kann man, völlig unabhängig vom Hintergrund, gut lesbare 
Schrift produzieren. 

Was das Fernsehen kann, kann unser Amiga schon lange. Das 
folgende Programm implementiert den Shadow-Befehl, der sich 
nicht nur für Genlock hervorragend eignet: 
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Shadow a$,spacing 
Shadow "hetlo M ,spacing 

"spacing:” enthält Abstand der Buchstaben 
Programmgröße: 673 Bytes 

Bemerkungen: "graphics.bmap" muß sich auf Disk befinden 


'Shadow-Print 

DECLARE FUNCTION Move& LIBRARY 
LIBRARY “graphics. library“ 

raain: 

Shadow M HALLO! M ,10 
Shadow "Dies ist ein Test.”, 7 
Shadow “Extended Spacing! ”, 14 
PRINT 

LIBRARY CLOSE 
END 


SUB Shadow(text$,spacing%) STATIC 

depth%=1 
crsX%-POS(0) 
crsY%~(CSRLIN)*8 
IF crsY%< 8 THEN crsY%=8 


'Cursor-Koordinaten 
'erste BS-Zeile ins Format 
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CALL SetDrMd&(WINDOW(8),0) 'JAM1 

FOR loop%=l TO LEN(text$) 
b$=MID$(text$,loop%,1) 

e&=Move&(WINDOW (8 ) , crsX%+depth%, crsY%+depth%) 

COLOR 2,0 'Schatten (schwarz) malen 

PRINT b$; 

COLOR 1,0 

e&=Move&(WINDOW(8),crsX%,crsY%) 

PRINT b$; 'Zeichen malen 

crsX%=crsX%+spacing% 

NEXT loop% 

PRINT 

CALL SetDrMd&(WINDOW(8),1) 'JAM2 (normal) 

END SUB 

Mögliche Fehlerquellen: 

FILE NOT FOUND bei Aufruf der LIBRARY-Funktion: 

Das nötige File "graphics.bmap" befand sich nicht im gleichen 
Directory mit AmigaBASIC und konnte daher vom Programm 
nicht gefunden werden. Benutzen Sie CHDIR oder kopieren Sie 
das bmap-File ins nötige Directory. 

OVERFLOW bei Aufruf der Move-Routine: 

Move wurde als Move& deklariert. Sie haben das &-Zeichen 
oder die erste Zeile des Programms vergessen. 

SOFTWARE FAILURE: 

Sie haben einen der Library-Befehle mit falschen Argumenten 
aufgerufen (insbesondere evtl. WINDOW(8) als Rastport verges¬ 
sen) oder Ihr "graphics.bmap"-File enthält einen Fehler. 

TYPE MISMATCH bei Aufruf des Shadow-Befehles: 

In der SUB-Deklaration fehlt das %-Zeichen als Deklaration der 
Variablen spacing%, oder Sie haben versucht, Fließkomma-Va- 
riablen (1.3, 7.23,...) als spacing zu benutzen. 
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Variablen: 


textS: 
spacing%: 

depth%: 
x%: 


bS: 

e&: 


SUB-Variable, enthält den gewünschten Text 
SUB-Variable, enthält den Pixelabstand der ein¬ 
zelnen Buchstaben, 

SUB-Variable, enthält die "Tiefe" des Schattens 
SUB-Variable, x-Position des AmigaBASIC-Cur- 
sors 

SUB-Variable, y-Position des AmigaBASIC-Cur- 
sors 

SUB-Variable, Ausgefiltertes Zeichen, das ge¬ 
druckt werden soll 

SUB-Variable, ERROR-Message des Move&-Be- 
fehls 


Unser Programm benötigt die Library-Funktionen SetDrMd, die 
wir gerade abgehandelt haben, sowie Move. Da Move einen Wert 
an AmigaBASIC zurückliefert, muß dieser Befehl zunächst als 
Funktion deklariert werden. Anschließend wird die "gra- 
phics.library" für BASIC eröffnet. Zwei Beispieltexte werden 
ausgegeben, die die verschiedenen Zeichenabstände demonstrie¬ 
ren. Anschließend wird die Library wieder geschlossen und das 
Programm endet. 

Die SUB-Routine Shadow übernimmt zwei Variablen: Den Text 
und den Zeichenabstand, der im Normalfall 8 betragen sollte 
(Font topaz.8). Die Tiefe des Schattens wird festgelegt (experi¬ 
mentieren Sie gelegentlich einmal mit diesem Wert herum), die 
aktuellen Cursorpositionen werden festgelegt, und der Zeichen¬ 
mode auf JAM1 gestellt (sonst wäre es ja nicht möglich, den 
Schatten mit weißer Farbe zu überschreiben, ohne ihn gänzlich 
auszulöschen). Die folgende Schleife gibt Zeichen für Zeichen 
aus, wobei das schwarze Schattenzeichen um depth% nach rechts 
und unten verschoben ist. Anschließend wird der Zeichenmode 
wieder auf JAM2, den Normallfall, gestellt. 
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2.3.5 Fettdruck 

Eine weitverbreitete Möglichkeit, Texte hervorzuheben, ist die 
des Fettdrucks. AmigaBASIC besitzt diese eigensinnige Darstel¬ 
lungsart zwar von Natur aus nicht, aber dank des SetDrMd-Be- 
fehls kann auch diese rasch implementiert werden. Unser neuer 
Befehl heißt: 

Bold a$,spacing 

Bold "Hello World!",spacing 

wobei spacing wieder den Buchstaben-Abstand festlegt. Da diese 
Funktion in wesentlichen Punkten dem Shadow-Befehl ähnelt, 
schlagen Sie bitte für eine ausführliche Dokumentation der an¬ 
gewandten Techniken dort nach. 

Programm-Größe: 572 Bytes 

Bemerkungen: "graphics.bmap" muß sich auf Disk befinden 


DECLARE FUNCTION Move& LIBRARY 
LIBRARY "graphics.library" 


main: 


FOR test%=1 TO 8 
LOCATE test%,5 

Bold "Hello Mrs. Wilke!",test%+6 
NEXT test% 


LIBRARY CLOSE 
END 
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SUB Bold(text$,spacing%) STATIC 

x%=POS(0) 

y%- (CSRLIN)*8 

CALL SetBrMd(WINDOW(8),0) 

FOB loop—1 TO LEN(text$) 
b$=MID$(text$,loop,1) 
e&=Move&(WINDOW(8),x%,y%) 
PRINT b$; 

e&=Move&(WINDOW(S),x%+1, y%) 

PRINT b$; 

x%= x%+s pacing% 

NEXT loop 

CALL SetDrMd(WINDOW(8),1) 

END SUB 


Allgemeine Programm-Informationen: Siehe "Shadow-Print M . 


Der Fettdruck-Effekt beruht auf der folgenden Technik: Der 
Text wird normal ausgeprintet. Anschließend wird derselbe Text 
um einen Bildschirmpunkt nach rechts verschoben nocheinmal 
gedruckt. Dieser M smear"-Effekt hebt den Text hervor. 


2.3.6 Outline-Druck 

Die Bold-Funktion hebt den Text auf recht einfache Weise her¬ 
vor. Diese Funktion, die wir "Outline" genannt haben, macht 
dasselbe mit ein wenig mehr Stiel. Lassen Sie sich überraschen! 
Die Funktion wird durch: 

Outline a$ # spacing 

Outline "Hello Mrs. WiIke!",spacing 

aufgerufen. 


Programm-Größe: 710 Bytes 

Bemerkungen: "graphics.bmap" muß sich auf der Disk befinden. 
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DECLARE FUNCTION Move& LIBRARY 
LIBRARY “graphics.library" 


raain: 


FOR test%=1 TO 8 
LOCATE test%,5 

Outline "Cheer up, ol' Begger!”,test%+6 
LOCATE test%,40 

Outline "Size: “+STR$(test%+6),8 
NEXT test% 


LIBRARY CLOSE 
END 


SUB Outline(text$,spacing%) STATIC 

mode%=2 'versuchen Sie auch mal 5 und 6! 
x%=POS(0)*8 
y%=(CSRLIN)*8 
FOR loop-1 TO LEN(text$) 
b$=MID$(text$,loop,1) 

CALL SetDrMd(WINDOW(8),0) 

FOR yoffset%~-1 TO 1 
FOR xoffset%=-l TO 1 

e&=Move&(WINDOW(8),x%+xoffset%,y%+yoffset%) 
PRINT b$; 

NEXT xoffset% 

NEXT yoffset% 

CALL SetDrMd(WINDOW(8),mode%) 'invertieren 
e&=Move&(WINDOW(8),x%,y%) 

PRINT b$; 
x%=x%+spacing% 

NEXT loop 

CALL SetDrMd(WINDOW(8),1) 


END SUB 
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Allgemeine Programm-Informationen: Siehe "Shadow-Print" 

Der Outline-Effekt ist zwar ein bißchen rechenintensiv, aber er 
macht sich wirklich bezahlt. Das Programm entspricht in we¬ 
sentlichen Punkten der Bold-Funktion: Der Text wird in alle 
vier Himmelsrichtungen verschmiert. Anschließend kommt unser 
glorreicher Zeichenmodus COMPLEMENT zum Zuge, der das 
Aussehen des wirklichen Buchstabens in die verschmierte Maske 
komplementiert. Es ist wirklich schwer zu erklären, schauen Sie 
sich am besten das Programm mit der Einzelschritt-Funktion 
(linker AMIGA-Key und T) an. 

Übrigens: Als kleinen Leckerbissen empfehlen wir Ihnen, den 
Zeichenmode COMPLEMENT in der Variable mode% mit an¬ 
deren Zeichenmodi zu vermischen. Insbesondere die Werte 5 und 
6 (COMPLEMENT|JAM2 bzw. COMPLEMENT|INVERSEVID) 
verändern den Outline-Effekt, ohne ihn unlesbar zu machen. 


2.3.7 Andere Druck-Modi 

Mit dem SetDrMd-Befehl läßt sich noch eine ganze Menge mehr 
machen. Da die Programmstruktur weitgehend den vorangegan¬ 
genen "Befehls-Erweiterungen" entspricht, haben wir darauf 
verzichtet, einen Befehl wie Reverse (SetDrMd mode% = IN- 
VERSEVID) oder Underline (SetDrMd mode%=JAMl, dann je¬ 
den Buchstaben ausgeben, anschließend darüber das Unterstrei¬ 
chungssymbol) zu implementieren. Vielleicht haben Sie ja Lust, 
mit diesen Anregungen weiterzuarbeiten. 


2.3.8 Move-Kontrolle über den AmigaBASIC-Cursor 

In einigen der vorangegangenen Befehle haben wir ihn schon 
benutzt, den "graphics.library"-Befehl MOVE. Kennt Amiga- 
BASIC nur die Möglichkeit, die Cursorposition zeichenweise 
(LOCATE-Befehl) oder pixelweise in x-Richtung (durch PTAB) 
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zu verändern, so läßt sich die Cursorposition mit Hilfe des 
Move-Befehls problemlos pixelweise sowohl in x- als auch y- 
Richtung verschieben. 

Der Aufruf des Befehls in BASIC muß folgendermaßen erfolgen: 

Move&(WIND0W(8),x%,y%) 

Um die Sache zu vereinfachen, haben wir wieder einen kleinen 
Befehl geschrieben, der in den verschiedensten Situationen 
äußerst praktisch sein kann: 

xyPTAB x%,y% 


Programm-Größe: 455 Bytes 

Bemerkungen: "graphics.bmap" muß sich auf Disk befinden. 


DECLARE FUNCTION Move& LIBRARY 
LIBRARY "graphics.library" 
var: 

text$=”Es geht bergab...” 
text$=" ,, +text$+" '* 
empty$=SPACE$(LEN(text$)) 
fontheight%=8 

main: 

FOR y%=6 TO 100 
xyPTAB x%,y% 

PRINT text$ 

xyPTAB x%,y%-fontheight% 
PRINT empty$ 
x%=x%+1 
NEXT y% 


LIBRARY CLOSE 
END 
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SUB xyPTAB(x%, y%) STATIC 
e&=Move&(WINDOW(8),x%,y%) 
END SUB 


Fehlerquellen: Schwer möglich. 


Variablen: 


text$: 
emptyS: 

fontheight%: 
x%. y%: 
e&: 


Demo-Text 

Leerstring, der für ein restloses Verschwinden 

beim y-Verschieben sorgt 

Höhe des Font 

Bildschirm-Koordinaten 

error-Meldung des Move&-Befehls 


Programmbeschreibung: 

Der Move&-Befehl wird als Funktion deklariert, und die ein¬ 
schlägige Library wird geöffnet. Der Demo-Text huscht im 
SoftScroll-Mode über den Schirm, die Library wird wieder 
dichtgemacht, und das Programm endet. 

Die eigentliche SUB-Routine ist denkbar einfach, denn im 
Prinzip werden nur dem Move-Befehl die nötigen Koordinaten 
übergeben. 

So simpel diese Routine aussieht, so leistungsfähig ist sie. Mit 
ihrer Hilfe kann Text, wie im Beispiel, pixelweise in sämtliche 
Himmelsrichtungen verschoben werden. Entweder im Smear- 
Effekt (SetDrMd mode%=JAMl) oder als SoftScrolling (SetDrMd 
mode°/o=JAM2). 
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2.3.9 Rubberband-Effekt 

Was, Sie wissen nicht, was das ist? Dabei arbeiten Sie damit si¬ 
cherlich täglich: Jedesmal, wenn Sie die Größe eines Windows 
verändern, erscheint dieses erfrischend orange Gummiband mit 
dessen Hilfe Sie eine passende Größe finden können. 

Dieses Gummiband wird normalerweise von Intuition verwaltet. 
Die Technik ist recht einfach: Um zu verhindern, daß durch das 
Gummiband der Bildhintergrund verändert wird, friert Intuition 
zunächst alle Bildaktivitäten ein (Dies ist der Grund, warum ein 
Malprogramm zum Beispiel die Arbeit unterbricht, wenn Sie ein 
Window vergrößern oder -verkleinern). Das Gummiband wird 
anschließend im Zeichen-Mode COMPLEMENT auf den Bild¬ 
schirm gezeichnet. So kann es durch einfaches Überschreiben 
problemlos wieder gelöscht werden, ohne den Bildhintergrund zu 
verändern. 

Dieser Effekt läßt sich auch von BASIC aus recht einfach pro¬ 
grammieren. Das folgende Programm ermöglicht einen Einblick 
und benutzt auch gleich noch ein paar andere interessante Ami- 
gaBASIC-Befehle: 


Programm-Größe: 1503 Bytes 

Bemerkungen: "graphics.bmap" muß sich auf Disk befinden. 


'rubberband 

LIBRARY "graphics.library” 
var: 

DIM picture%(10000) 

PALETTE 0,0,0,0 

init: 


GOSÜB tiraeCheck 

ON MOOSE GOSÜB MouseCheck 

MOUSE ON 

ON TIMER(,1) GOSÜB timeCheck 
TIMER ON 
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circlel: 

radius=INT(RND(1)*100)+10 
FOR x=0 TO 3.1415926# STEP .05 
col=INT(RND(l)*3)+l 
xl=radius*COS(x) 
yl=radius*SIN(x) 
x2=radius*COS(x+3.1415926#) 
y2=radius*SIN(x+3.1415926#) 

LINE ((150+xl)*2,100+yl)-((150+x2)*2,100+y2),col 
NEXT x 

GOTO circlel 
MouseCheck: 

CALL SetDrMd(WINDOW(8),2) 
loop: 

mstat=MOUSE(0) 

IF mstat<1 THEN 
mox^MOUSE(1) 
moy^MOÜSE(2) 
mx=mox 


my=raoy 
END IF 

checkloop: 

IF mstatc1 THEN 
mtx=mx 
rat y = my 
mx=MOOSE(1) 
my=MOOSE(2) 

IF 6+ ((my-moy+1) *'2*INT ((mx-mox+16) /16) ) >ABS (7000) THEN 
mx=mtx 
my^mty 
END IF 

IF mtx< >mx OR mty< >my THEN 
LINE (mox,moy)-(mtx,mty),,b 
LINE (mox,moy)-(mx,my) , , b 
END IF 

mstatcMOOSE(0) 

GOTO checkloop 
END IF 

LINE (mox,moy)- (mx,my) , ,b 
PSET (mox,moy) 
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CALL SetDrMd(WINDOW(8),1) 

GET (mox,moy)-(mx,ray),picture% 

PUT (0,0),picture%,PSET 

RETURN 

tiraeCheck: 

IF £1=1 THEN 
c=c-,0625 

IF c<.0625 THEN fl=0 
ELSEIF £1=0 THEN 
e=c+.0625 

IF 0.9375 THEN £1=1 
END IF 

PALETTE l,.8,.8,c 'Farbtabelle fuer 

PALETTE 2,c,.9,c 'Rotation 

PALETTE 3 , . 6 , c ,. 7 

RETURN 


Variablen-Felder: 


picture%: Enthält das selektierte Bildschirm-Image. 
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Variablen: 


radius: 
col: 
xl.yl: 
x2, y2: 
ms tat: 
mox, moy: 
mtx, mty: 
mx, my: 
c: 


Zufallswert für Kreis-Radius 
Zufallswert für Zeichenfarbe 
x- und y-Koordinaten für Linienbeginn 
x- und y-Koordinaten für Linienende 
Status des linken Maus-Buttons 
Koordinaten des Maus-Ursprungs 
Temporäre Maus-Koordinaten 
Aktuelle Maus-Koordinaten 
Farbschleife im Timer-Interrupt 


Programmbeschreibung: 

Dieses Programm soll den Rubberband-Effekt demonstrieren. 
Dazu ist der SetDrMd-Befehl aus der "graphics.library" erfor¬ 
derlich. Das Feld picture% wird dimensioniert und die Hinter¬ 
grundfarbe gesetzt. Der Maus-Interrupt wird eingeschaltet. 
Außerdem wird ein Timer-Interrupt eingerichtet, der alle 1/10 
Sekunden die Routine timeCheck ausführt. 

Der Programmteil demo: zeichnet nun verschiedenfarbige Lini¬ 
enkreise auf den Bildschirm. Die beiden Funktionen COS und 
SIN liefern dabei die nötigen Kreiskoordinaten, die im nachfol¬ 
genden LINE-Befehl Verwendung finden (die x-Werte werden 
außerdem um den Faktor 2 vergrößert, da wir kein Ei, sondern 
einen wundervoll symmetrischen Kreis im Sinn haben. Amiga- 
BASICs CIRCLE-Befehl gleicht die Auflösungsunterschiede au¬ 
tomatisch aus). 

MouseCheck enthält die eigentliche Rubberband-Routine: 
Zunächst wird der Zeichenmode auf COMPLEMENT (=2) ge¬ 
schaltet, damit das Programm das Gummiband später auch ge¬ 
fahrenlos wieder aus dem Bildschirm herausbekommt. An¬ 
schließend werden der Maus-Status getestet und die Ursprungs¬ 
koordinaten auf die derzeitige Maus-Position gesetzt. Danach 
beginnt die Routine eine Schleife, die zunächst die alte Maus¬ 
position zwischenspeichert und dann die neue holt. Anschließend 
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wird die umschlossene Fläche berechnet, damit sie auch in unser 
Feld picture°/o hineinpaßt. Ist die Fläche zu groß, dann werden 
einfach die alten Koordinaten beibehalten. 

Nun werden die aktuellen und temporären Mauspositionen mit¬ 
einander verglichen, um festzustellen, ob sich die Maus seit dem 
letzten Check vom Fleck gerührt hat. Falls ja, so wird das alte 
Gummiband gelöscht und ein neues mit den aktuellen Koordi¬ 
naten gezeichnet. Wieder wird der Maus-Status kontrolliert, und 
die Schleife wiederholt sich. Das geht solange, bis es dem Be¬ 
nutzer zu dumm wird und er den linken Maus-Button losläßt. 
Dann nämlich wird die Variable "mstat" größer als 0 und die 
Schleife wird verlassen. 

Der Benutzer hat also das Feld markiert, und das letzte Gummi¬ 
band kann gelöscht werden. Der Zeichenmode wird wieder auf 
JAM2 (=1) zurückgeschaltet, das ehemals umrandete Gebiet wird 
mittels GET ausgelesen und wandert ins Variablen-Feld pic- 
ture%. PUT wirft es wieder aus, und zwar in der linken oberen 
Ecke des Bildschirmes (0,0). Anschließend wird die Maus-In- 
terrupt-Routine verlassen, und das Demoprogramm setzt seine 
Arbeit fort. 

Die Routine timeCheck ist noch eine Zugabe am Rande, die den 
außerordentlich praktischen Zeit-Interrupt vorstellt. Jede 1/10 
sec. werden hier nämlich die Farbregister verändert. 


2.4 Die Amiga-Zeichensätze 

Vielfalt macht Programme erst schön. Wem kann ein einheitli¬ 
cher Schriftsatz nicht schon einmal auf die Dauer auf den Keks 
gehen? Immer die gleichen Buchstaben auf dem Monitor zu se¬ 
hen, daß brennt sich doch ein in die müden Augen des sonst al¬ 
lem trotzenden Programmierers. Das haben sich wahrscheinlich 
auch die Entwickler des Amigas gedacht, und so wurde ein 
Ausweg gleich mit eingebaut. Es handelt sich um sogenannte 
"Fonts". 
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Haben andere Computer oftmals nur einen einzigen, fest einge¬ 
bauten Zeichensatz, so hat der Amiga gleich zwei. Und war es 
bei anderen Computern, wenn überhaupt, nur durch außeror¬ 
dentlich geschickte Bit- und Chip-Manipulationen möglich, 
einen weiteren Zeichensatz nachzuladen, so verwendet der 
Amiga disk-residente Zusatz-Fonts, die problemlos und ganz 
nach belieben nachgeladen werden können. Ohne Rumpokerei, 
ohne Grübeln über freie Speicherbereiche. Die beiden einge¬ 
bauten Zeichensätze bestechen nicht gerade durch ihr künstleri¬ 
sche Raffinesse, sondern vielmehr durch die durchdachte Funk¬ 
tionalität. Wie Sie sicher wissen, ist es möglich, den Amiga-Dis- 
play-Mode zwischen 60 und 80 Zeichen pro Zeile hin- und 
herzuschalten. Sieht man sich die Sache näher an, so wird ein¬ 
fach zwischen den beiden eingebauten Zeichensätzen umge¬ 
schaltet. Genial, nicht? Nein? Naja, auf diese Weise kommt der 
BASIC-Programmierer immerhin schon einmal in den Genuß 
zweier unterschiedlicher Zeichensätze: 


2.4.1 60- oder 80 Zeichen, ist die Frage 

Um einen der ROM- (oder sollten wir sagen: Write Once Me¬ 
mory?) Zeichensätze zu bekommen, spielt die "graphics.library" 
mal wieder Retter in der Not (da AmigaBASIC für solch ge¬ 
schickte Operationen natürlich keinen Befehl erfunden hat.). Wir 
brauchen die folgenden Funktionen: 

Open Font 
CloseFont 
SetFont 

Wieder haben wir für Sie einen SUB-Befehl entwickelt, mit dem 
Sie nach herzenslust zwischen den beiden Zeichensätzen herum¬ 
schalten können. Die Funktion wird durch: 

RomFont x 


aufgerufen. 
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Programm-Größe: 626 Bytes 

Bemerkungen: "graphics.bmap" muß sich auf Disk befinden. 


DECLARE FUNCTION AskSoftStyle& LIBRARY 
DECLARE FUNCTION OpenFontÄ LIBRARY 
DECLARE FUNCTION SetSoftStyleÄ LIBRARY 

LIBRARY “graphics.library“ 

test: 

ROMFont 60 

PRINT “Hallo, dies ist der erste eingebaute Zeichensatz“ 
PRINT "mit 60 Zeichen pro Zeile mit 9*8 Matrix. *' 

ROMFont 80 

PRINT “Der zweite ist kleiner und bringt ganze 80 Zeichen“ 
PRINT “in einer Zeile unter. Natuerlich lass*en sich die" 
PRINT “beiden Zeichensaetze auch "; 

ROMFont 60 

PRINT “untereinander mischen!“ 

LIBRARY CLOSE 
ENB 


SÜB ROMFont(which%) STATIC 

SHARED strFont& 

IF which%=60 THEN 
height%=9 
ELSE 

height%=8 
END IF 
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IF strFont&c>0 THEN CALL CloseFont(strFont&) 
fontO$="topa 2 .font"+CHR$(0) 
textAttrfc(0)=SADD(font0$) 
textAttr&(l) = height%*2' 16 
strFont&=OpenFont&(VARPTR(textAttr&(0))) 

IF strFont&<>0 THEN CALL SetFont (WINDOW(8),strFont&) 

END SUB 


Fehlerquellen: 

FILE NOT FOUND bei Aufruf der LIBRARY Funktion: 

Das nötige File "graphics.bmap" befand sich nicht im gleichen 
Directory mit AmigaBASIC und konnte daher vom Programm 
nicht aufgespürt werden. Benutzen Sie doch einfach CHDIR, 
oder schauen Sie einmal selber nach, ob sich das File überhaupt 
auf Disk befindet (Software-Klau wird ja auch immer schlim¬ 
mer...). 

OVERFLOW bei Aufruf eines unserer neuen Befehle 

Amiga interpretiert den Befehl aus einem unerfindlichen Grund 
als Variable, die als solche zugegebenermaßen etwas groß gera¬ 
ten wäre. Überprüfen Sie, ob der Name des Befehls mit dem in 
der Deklaration übereinstimmt (falls es sich um eine Funktion 
handelt), oder entfernen Sie &- oder ähnliche Zeichen (wenn es 
sich um keine Funktion handelt). 

SOFTWARE FAILURE: 

Das ist immer ärgerlich. Entweder wurde einer unserer hilfrei¬ 
chen neuen Befehle falsch aufgerufen, oder "graphics.bmap" ist 
fehlerhaft. 


TYPE MISMATCH bei Aufruf der SUB-Routine: 
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In der SUB-Deklaration fehlt das %-Zeichen der which%-Vari- 
ablen, oder sollten Sie etwas wie 

ROMFont 80.345 

eingegeben haben? Soetwas sollte natürlich nicht Vorkommen. 


Variablen-Felder: 

textAttr&(): SUB-Feld, in C wäre dieses Feld als textAttr- 
Struktur definiert. Hier werden alle wichtigen In¬ 
formationen des Fonts untergebracht. 


Variablen: 

which%: SUB-Variable, enthält ID des ersehnten Font 

strFont&: Zeiger zur Verwaltungsstruktur für Fonts, sollte 

von Ihnen nicht angerührt werden, da der Amiga 
sonst ins Schleudern kommt. 

height%: Die Pixelhöhe des gewünschten Font. Hier gibt’s 

nur 8 oder 9, da der Amiga Phantasie-Zahlen mit 
dem nächstbesten Font abspeist. 


Programmbeschreibung: 

Da der Befehl OpenFont& einen Wert an AmigaBASIC zurück¬ 
liefert, muß er zunächst als Funktion deklariert werden. Dann 
wird die "graphics.library" geöffnet, die uns all diese wunder¬ 
vollen Dinge ermöglicht. Ein kleines Demo-Programm demon¬ 
striert den prinzipiellen Unterschied beider Zeichensätze. Die 
Library wird sinnvollerweise wieder geschlossen, und das Pro¬ 
gramm endet. 

Der SUB-Befehl verlangt die Kennzeichnung des gewünschten 
Fonts: 60 oder 80. Diese wird in which% gespeichert. Unser 
Amiga kümmert sich natürlich licht um Angaben wie "Zei¬ 
chen/Zeile", sondern will die Höhe des Fonts wissen. Diese be- 
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trägt 8 bzw. 9 Bildschirmpunkte. Etwaige offene Zeichensätze 
werden geschlossen, und es wird eine textAttr-Struktur initiali¬ 
siert. Eine solche Struktur ist in C als: 

STRPTR ta Name; 

UWORD ta YSize; 

UBYTE ta Style; 

UBYTE ta Flags; 

definiert. Als Speicherplatz verwenden wir von BASIC einfach 
das Variablen-Feld textAttr&(). Die ersten vier Bytes enthalten, 
gemäß der Struktur, einen Zeiger auf den Namen des Fonts, der 
mit 0 abgeschlossen sein muß: fontOS. Die nächsten zwei Bytes 
werden mit der Höhe des Fonts belegt (deshalb muß height% mit 
2 A 16 multipliziert werden). 

Nachdem diese lebenswichtige Struktur mit unseren Parametern 
versorgt ist, kann getrost versucht werden, den Font zu öffnen. 
Im Erfolgsfall liefert dabei OpenFont& einen Zeiger zum neuen 
Verwalter, ansonsten kommt 0 zurück. Falls alles geklappt hat, 
wird der neue Font eingeschaltet, was mit SetFont geschieht. 


2.4.2 Algorithmisch gesteuerte Zeichensätze 

Es klingt schlimmer als es ist. Neben der Fähigkeit, völlig neue 
Zeichensätze auf den Bildschirm zu zaubern, kann der Amiga 
die bestehenden Fonts algorithmisch, also auf mathematische 
Weise, verändern. Dabei stehen die folgenden Manipulationen 
zur freien Verfügung, die natürlich auch miteinander gemischt 
werden können: 

0. Normale Darstellung (auch ganz nützlich...) 

1. Unterstrichen (underline) 

2. Fettdruck (bold) 

3. Schrägschrift (italics) 

Durch die Mischung stehen also acht verschiedene Schriftsätze 
zur Verfügung: 
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0 = normal 

1 = unterstrichen 

2 = fett 

3 = unterstrichen und fett 

4 = schräg 

5 = unterstrichen und schräg 

6 = fett und schräg 

7 = unterstrichen, fett und schräg (full house!) 

Um an diese verschiedenen Schriftsätze heranzukommen, genü¬ 
gen die (schon wieder) "graphics.library"-Befehle: 

AskSoftStyle& 

SetSoftStyle& 

Wieder haben wir einen SUB-Befehl geschrieben, den Sie so 
aufrufen (sollten): 

Style x 

x = 0-7 

Sie können übrigens sämtliche von uns vorgestellten SUB-Be- 
fehle problemlos in einem Programm zusammen benutzen. So 
wäre beispielsweise der Einsatz verschiedener Zeichensätze in 
Verbindung mit diesen SoftStyles sehr interessant. Sie sollten al¬ 
lerdings ein und dieselbe Funktion auch nur einmal mit DE- 
CLARE FUNCTION deklarieren, um den Computer nicht rest¬ 
los zu verwirren. Auch ein einziger LIBRARY-Befehl (pro Li¬ 
brary) reicht vollends aus. 


Programm-Größe: 380 Bytes 

Bemerkungen: "graphics.bmap" muß sich auf Disk befinden. 
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DECLARE FUNCTION AskSoftStyle& LIBRARY 
DECLARE FUNCTION SetSoftStyle& LIBRARY 

LIBRARY "graphics. library" 

FOR st%=0 TO 7 
style st% 

PRINT "Hello" 
style 0 

LOCATE st%+1,20 

PRINT "SoftStyle Nr. “;st% 

NEXT st% 

LIBRARY CLOSE 
END 


SUB style(style%) STATIC 
bits&=AskSoftStyle&(WINDOW(8)) 

newStyle&=SetSoftStyle&(WINDOW(8),style%,bits&) 

END SUB 



Allgemeine Programm-Informationen: Siehe "ROMFont-Befehl" 


Variablen: 


loop%: 
stylefo: 

bits&: 

newStyled: 


Schleife 

SUB-Variable, enthält den ersehnten Style (0-7, 
siehe Definitionen oben) 

die von AskSoftStyle& zurückgelieferten Style-Bits 
der fertige neue Style 


Sowohl AskSoftStyle als auch SetSoftStyle liefern Werte an Ami¬ 
gaBASIC zurück und müssen daher als Funktion deklariert wer¬ 
den. Die "graphics.library" wird geöffnet, und eine kleine 
Schleife führt die gesamte Pracht der neuen ''Zeichensätze" vor. 
Danach wird die Library wieder geschlossen und das Programm 
endet. 
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Der SUB-Befehl Style ist schnell implementiert: Die Funktion 
AskSoftStyles& liefert die "Style-Bits" des momentan geöffneten 
Fonts. Diese Bits können später algorithmisch verändert werden. 
Anschließend wird die gewünschte Veränderung durch SetSoft- 
Style vorgenommen, wobei die zuvor gewonnenen Style-Bits 
wieder eingesetzt werden. 


2.4.3 Disk-Residente Zeichensätze (Fonts) 

Erwähnt hatten wir sie ja schon und damit vielleicht einigen 
Lesern schon den Mund wässerig gemacht. Ja, es funktioniert. 
Auch in AmigaBASIC kann mit den vielen netten disk-residen- 
ten Zeichensätzen herumgespielt werden, wie das im Notepad so 
wunderbar geht. Wieder kann man sich nicht auf AmigaBASIC 
selbst, sondern den leistungsstarken LIBRARY-Befehl verlassen. 

Wir müssen diesmal neben der "graphics.library" eine weitere 
öffnen, die auf den Namen "diskfont.library" hört und deren al¬ 
leiniger Zweck die Verwaltung der disk-residenten Zeichensätze 
ist. Sie enthält dazu nur zwei Befehle: 

AvailFonts 
OpenDiskFont 


Aber das genügt uns schon. AvailFonts sucht im Zweifelsfall alle 
Disk-Fonts zusammen, die es finden kann und macht eine Liste 
daraus. Das ist zwar recht nett, soll uns im Moment aber nicht 
stören. Wir wollen so schnell wie möglich einen neuen Zeichen¬ 
satz eröffnen. Dazu wieder einer unserer legendären SUB-Be- 
fehle: 


DiskFont M name",Höhe% 

name = Name des gewünschten Fonts, z.B. "sapphire". 
Höhe% = Höhe des Fonts in Bildschirmpunkten (pixel). 


Programm-Größe: 494 Bytes 
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Bemerkungen: "graphics.bmap" und "diskfont.bmap" müssen sich 
auf Disk befinden. Außerdem muß die "Workbench"-Diskette in 
Griffnähe gehalten werden oder sich - falls vorhanden - im 
zweiten Laufwerk befinden. 


DECLARE FUNCTION OpenDiskFont& LIBRARY 

LIBRARY "graphics.library" 

LIBRARY "diskfont.library“ 

test: 

altFont&=PEEKL(WINDOW(8)+52) 'im Rastport des Windows 

'befindet sich ab Adresse 
'52 der Zeiger auf die 
'augenblickliche Font. 

DiskFont "sapphire“,19 

LOCATE 5,5 

PRINT "Dies ist Sapphire 19!“ 

LOCATE 8,1 

INPUT "Zurueck zum Alten (j/n) ”;jn$ 

IF jn$="j" THEN 

CALL SetFont&(WINDOW(8),altFont&) 'HIER wird der Zeichen- 

'sats wieder eingeschaltet, 
'der VOR Programmstart aktiv 
'war. Falls das SAPPHIRE ge- 
'wesen war, aendert sich na- 
'tuerlich nichts; dort ROMFont 


END IF 


'Befehl verwenden. 


LIBRARY CLOSE 
END 


SUB DiskFont(font$,height%) STATIC 

SHARED strFont& 
prefs%=96 

fontO$~font$+“.font“+CHR$(0) 

IF strFont&<>0 THEN CALL CloseFont(strFont&) 
textAttr&(0)=SADD(font0$) 
textAttr&(1)=height%*2~16+prefs% 
strFont&=OpenDiskFont&(VARPTR(textAttr&(0))) 

IF strFont&<>0 THEN CALL SetFont (WINDOW(8),strFontÄ) 


END SUB 
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Allgemeine Programm-Informationen: Siehe "ROMFont-Befehl" 


Variablen-Feld: 


textAttr&(): textAttr-Struktur, siehe ROMFont-Befehl für nä¬ 
here Informationen. 

Variablen: 


fontS: 

height%: 

prefs%: 
strFont&: 


SUB-Variable, Name des gewünschten Fonts. 
SUB-Variable, Höhe des Fonts in Bildschirmpunk¬ 
ten. 

SUB-Variable, Preference-Bits. 

Zeiger auf die Verwaltung dieses Font. 


Programmbeschreibung: 

Da der OpenDiskFont&-Befehl eine Funktion ist, muß er als 
solche deklariert werden. Die beiden nötigen Libraries werden 
geöffnet (wobei die erste den SetFont-Befehl zum Einschalten 
des Fonts enthält, während die zweite den nötigen Ladebefehl 
OpenDiskFont& zur Verfügung stellt. 

Wie auch bei der Befehlsimplementation ROMFont muß 
zunächst eine textAttr-Struktur ausgefüllt werden (für nähere 
Informationen siehe ROMFont-Befehl). In der Struktur wird ne¬ 
ben der Zeichenhöhe auch das Feld prefs% eingefüllt, da es sich 
bei den Disk-Fonts ausnahmslos um Proportionalzeichensätze 
handelt (jedes Zeichen hat seine individuelle Breite. Das sieht 
super aus, ist aber schwer zu verwalten. Der Amiga macht das 
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natürlich mit links). Anstatt nun, wie bei ROMFont, OpenFont 
zu benutzen, muß OpenDiskFont gewählt werden, denn der ge¬ 
wünschte Font befindet sich ja noch nicht im Speicher des 
Rechners. Anschließend wird wieder nach gewohntem Prinzip 
verfahren, und der Font wird geöffnet (sofern er vorhanden ist). 

Dazu gleich noch ein wenig Detail-Information: Der Amiga 
sucht systematisch nach dem gewünschten Font. Falls er jedoch 
keinen Font finden kann, auf den alle Beschreibungen (Name, 
Höhe und Preferences) genau zutreffen, so nimmt er den dies 
am besten erfüllenden Font. Und zwar wird dazu nach Möglich¬ 
keit eines gleichen Namens gefunden. Existieren solche Fonts, 
dann wird der Font mit der ähnlichsten Höhe gewählt, danach 
Style und dann Preferences verglichen. So bekommen Sie immer 
ein gutes Ergebnis, selbst wenn mal Ihr Lieblings-Font nicht da 
sein sollte. 

Noch etwas zum Programm-Ablauf. Nach dem Starten des Pro¬ 
gramms benötigt es die Disk-Fonts, die sich normalerweise im 
Directory "Fonts" auf der Workbench-Disk befinden. Sie müssen 
also entweder die Diskette wechseln (wenn Sie nur ein Drive ha¬ 
ben), die Workbench ins andere Drive legen oder ein eigenes 
Font-Directory auf Ihrer Disk einrichten. 

Unseren Informationen zufolge stehen Ihnen diese Disk-Fonts 
zur Verfügung: 


Font-Name_Höhe 


ruby 

8 

ruby 

12 

opal 

11 

sapphire 

14 

sapphire 

15 

sapphire 

18 

sapphire 

19 
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diamond 

12 

garnet 

9 

garnet 

16 

emerald 

20 


Es ist möglich und wahrscheinlich, daß diese Liste sowohl von 
Commodore als auch privaten Anbietern noch erweitert wird. 

Zusammen mit den beiden ROM-(WOM?!)-Fonts stehen Ihnen 
also 13 völlig verschiedene Zeichensätze zur Verfügung, die je¬ 
weils auf 4 verschiedene Arten darstellbar sind (siehe Style-Be- 
fehl). Nimmt man den Outline-Befehl noch dazu, dann stehen 
Ihnen jetzt 13*5 = 65 verschiedene Zeichensätze zur Program - 
mier-Verfügung. Na, wenn das keine Abwechslung ist! 


2.4.4 Automatische Lagerbestandsaufnahme: AvailFonts 

Nachdem der Druck etwas nachgelassen hat (die Disk-Fonts ar¬ 
beiten doch wohl ordnungsgemäß?), können wir uns an den 
zweiten Befehl der "diskfont.library" machen. Er ist auch ganz 
nützlich, vor allem dann, wenn man eine gewisse Ordnung hal¬ 
ten und einen Überblick über die bestehenden Disk-Fonts nicht 
verlieren möchte. 

Hier der Befehl: 


error=AvailFonts&(buffer,bufBytes,types) 


error: Buffer war zu klein, error enthält die Anzahl der 

benötigten Extra-Bytes. 

buffer: Zeiger auf einen freien Speicherbereich, der sich als 

Buffer einrichten ließe. 

bufBytes: Maximale Größe des Buffers in Bytes, damit Avail¬ 

Fonts nicht gleich Amigas gesamtes Speichersystem 
überschwemmt. 

types: Suche nach Disk- oder WOM-Zeichensätzen: l=Disk 

Only, 2=Memory Only, 3=beides. 
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Programm-Größe: 1621 Bytes 

Bemerkungen: "graphics.bmap", "exec.bmap" und "diskfont.bmap" 
müssen sich auf Disk befinden. Workbench-Disk wird auch ge¬ 
braucht. 


DECLARE FÜNCTION AvailFonts& LIBRARY 
DECLARE FÜNCTION AllocMem& LIBRARY 
DECLARE FUNCTION OpenDiskFont& LIBRARY 
DECLARE FÜNCTION OpenFont& LIBRARY 

LIBRARY "diskfont.library” 

LIBRARY ”exec.library" 

LIBRARY “graphics.library" 

var: 

maxFonts%=20 
DIM SHARED co(2) 

DIM SHARED f ont$ (rnaxFonts%, 2) 

DIM SHARED ySize%(maxFonts%,2) 

DIM SHARED style%(maxFonts%,2) 

DIM SHARED pref s% (maxFonts%,2) 


MakeFontList 

PRINT "RAM-Fonts" 

PRINT 

Out= 1 

GOSÜB Out 

PRINT 

PRINT "Disk-Fonts" 

PRINT 

0ut=2 

GOSÜB Out 

LIBRARY CLOSE 
END 


Out: 

FOR loopl%=l TO co(Out) 

PRINT "Font-Name> ";font$(loopl%,Out) 
PRINT "Hoehe > ";ySize%(loopl%,Out) 
PRINT "StyleBits> ";style%(loopl%,Out) 
PRINT "Prefs > prefs%(loopl%,Out) 

PRINT 
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NEXT loop1% 

RETURN 

SUB MakeFontList STATIC 
SHARED buffer&,result$,pointer 
opt&=2~0+2"16 

buffer&=AllocMem&(1000,opt&) 
bf&=buffer& 

IF buffer&=0 THEN 
ERROR 7 
END IF 

e&=AvailFonts&(buffer&,1000,3) 

IF e&< >0 THEN 
ERROR 7 
END IF 

eleraents%=PEEKW(buffer&) 
huffer&=buffer&+2 
FOR loop&=1 TO elements% 
type%=PEEKW(buffer&) 
co(type%)=co(type%)+1 
pointer&=PEEKL(buffer&+2) 
getName pointer& 
font$(co(type%),type%)=result$ 
ySize%(co(type%),type%)=PEEKW(buffer&+6) 
style%(co(type%),type%)=PEEK(buffer&+8) 
prefs%(co(type%),type%)=PEEK(buffer&+9) 
buffer&=buffer&+10 
NEXT loop& 

CALL FreeMem(bf&,1000) 

END SUB 

SUB getName(add&) STATIC 

SHARED result$ 
result$= M " 


readloop: 
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value&=PEEK(add&) 

IF value&<>0 THEN 

result$=result$+CHR$(value&) 
add&=add&+1 
GOTO readloop 
END IF 

END SUB 


Allgemeine Programm-Informationen: Siehe "ROMFont-Befehl" 
Variablen-Felder: 


co(): 
font$(): 
ySize%( ): 
style%( ): 
prefs%( ): 
textAttr&( ) 


Flag für Disk(l) und Memory(2) 
Name der gefundenen Fonts 
Höhe des Fonts 
Style-Bits des Fonts 
Preference-Bits der Fonts 
TextAttr-Struktur 


Variablen: 


maxFonts%: 


resultS: 
pointer: 
e&: 
type%: 
add&: 


Maximale Anzahl von Fonts pro Menü-Punkt. Im 
Moment =20, muß in manchen Fällen erhöht 
werden. 

Übergabe des gefundenen Font-Namens 
Zeiger auf einen Font-Namen im Speicher 
SUB1, error-Variable der AvailFonts-Funktion 
SIJB1, gefundener Typ: l=Disk, 2=Memory 
SUB2, Anfangsadresse des gesuchten Strings 
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Anmerkung: 


Insbesondere wenn maxFonts% erhöht wird, kann es zu Spei¬ 
cherplatz-Schwierigkeiten kommen. Falls Sie eine Speicherer¬ 
weiterung besitzen, dann können Sie durch: 

CLEAR ,30000 

den nötigen Speicherplatz sicherstellen. 


Programmbeschreibung: 

Zunächst werden sämtliche Befehle, die einen Wert an BASIC 
zurückliefern, als Funktion deklariert. Dann werden die drei Li¬ 
braries "diskfont", "graphics" und "exec" eröffnet. Das Programm 
setzt in maxFonts% einen Default-Wert von 20 Fonts pro Menü- 
Punkt. Sie können diesen Wert bei Bedarf natürlich erhöhen, 
aber Amigas ohne Speichererweiterung könnten das schon mal 
übelnehmen. Die nötigen Variablenfelder werden dimensioniert 
und als SHARED deklariert, damit die beiden SUB-Funktionen 
sie auch benutzen können. Anschließend wird die SUB-Funktion 
MakeFontList aufgerufen, die alle im System rumfliegenden 
Fonts zusammenkratzt und der Herkunft nach in die Variablen- 
Felder steckt. 

Die SUB-Funktion MakeFontList macht zunächst einmal die 
Variablen buffer&, resultS und pointer der Außenwelt zugäng¬ 
lich. buffer& dient nur Kontrollzwecken, während die anderen 
beiden Variablen an ein zweites SUB-Programm übergeben wer¬ 
den müssen. Mit Hilfe des Exec-Befehls AllocMem wird ein 
1000-Bytes großer Buffer lokalisiert (Er ist so dimensioniert, 
daß er wirklich unter allen Härtebedingungen durchkommen 
sollte. Für mehr Information über Memory-Handling schauen Sie 
doch einfach mal ins gleichnamige Kapitel!). Falls der buffer& 
sich nicht meldet, wird eine entsprechende Notfall-Meldung 
kreiert, bevor sich das Programm mit einem OUT OF ME¬ 
MORY Error abmeldet. Ist jedoch alles gut gegangen, dann wird 
AvailFonts auf gerufen. Aber auch hier kann es passieren, daß 
nicht genügend Speicher zur Verfügung steht, also unter extre- 
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men Härtebedingungen kann es auch hier zu einem OUT OF 
MEMORY Error kommen. Sind diese Klippen aber erst einmal 
umschifft, dann liegt ruhige See voraus. Der von AvailFonts 
gefüllte Buffer wird nun ausgelesen. Dazu ist es notwendig, den 
Aufbau dieses Buffers zu verstehen. Die ersten beiden Bytes le¬ 
gen die Anzahl der Einträge fest, die in elements% gespeichert 
werden. Danach folgen die Einträge, die das folgende C-Format 
haben: 


UWORD af Type (1=disk, 2=memory) 
struct TextAttr 

(unsere beliebte textAttr-Struktur, siehe ROMFont-Befehl) 

Die einzelnen Felder werden mit den Buffer-Werten gefüllt, 
wobei die SUB-Routine GetName den Font-Namen aus dem 
Speicher liest. 

Ist der Buffer ausgeschlachtet, besteht eigentlich kein Grund 
mehr, ihn aufrecht zu erhalten. Daher werden die wertvollen 
1000 Bytes durch FreeMem wieder freigegeben. 

Die SUB-Routine GetName sucht so lange ASCII-Codes aus dem 
Speicher, bis eine 0 erreicht ist. 


Zum Programm: 

Nach dem Starten und Laden der ".bmap"-Files benötigt das 
Programm die Workbench. Legen Sie diese ins andere Laufwerk, 
oder wechseln Sie die Disketten. Nun werden Sie ein schabendes 
Geräusch hören, was aber entgegen dem ersten Eindruck völlig 
ungefährlich ist: AvailFonts liest nämlich auf recht ohrenbetäu¬ 
bende Weise alle auf der Workbench zu findenden Fonts ein. Ein 
paar Sekunden später ist der Spuk vorbei, und Sie können durch 
Mausdruck die Liste der gefundenen Fonts abklappern, die nach 
Memory und Disk getrennt ausgegeben werden 

Auf einigen Workbench Disketten existiert übrigens eine Phan¬ 
tom-Font namens Ruby/12 (neben dem offiziellen). 




M 


AMIGA Tips & Tricks 


Noch eine Bemerkung zum Programm: Sie können es natürlich 
modifizieren, indem Sie ein eigenes kleines Programm an Stelle 
der Ausgabeschleife einbauen (dann hat es wenigstens einen 
Sinn). Dazu gibt’s auch gleich von uns noch ein paar Anregun¬ 
gen! 


2.4.5 Transparente drucken 

Und hier gleich ein Einsatz der AvailFonts-Funktion wie aus 
dem Leben gegriffen: Die Disk-Fonts machen sich ja recht gut 
auf dem Bildschirm. Aber man kann eigentlich noch eine ganze 
Menge mehr mit ihnen machen. Jeder Buchstabe eines Fonts ist 
dort ja als Punktraster definiert worden. Was hindert uns daran, 
diese Definition unsererseits auszulesen, die Matrix zu ver¬ 
größern und als Transparent auf einen Drucker auszugeben? 
Natürlich nichts! 

Programm-Größe: 4775 Bytes 

Bemerkung: "exec.bmap", "dos.bmap" sowie "diskfont.bmap" 
müssen sich auf Disk befinden. Workbench-Disk parat halten. 


'transparentdrucker 

'modified 13.Nov.86/Workbench Version 1.2 

DECLARE FUNCTION AvailFontsfc LIBRARY 
DECLARE FUNCTION DosOpenfc LIBRARY 
DECLARE FUNCTION DosReadÄ LIBRARY 
DECLARE FUNCTION DosSeek& LIBRARY 
DECLARE FUNCTION AllocMemÄ LIBRARY 

LIBRARY "exec.library” 

LIBRARY "dos.library” 

LIBRARY "diskfont.library” 

PRINT ”*** TRANSPARENT-DRUCKER ***” 

PRINT " Initialisierung laeuft!” 


maxFonts%=20 
DIM ret$(400) 

DIM SHARED font$(maxFonts%) 
DIM SHARED hgt%(maxFonts%) 
hoehe=l 'Default-Werte 

weite-1 

'gesetzter Punkt 
upl$=.Leerzeichen 



Das Ami£aBASJC_ 


85 


main: 

GOSUB getMernory 
GOSUB preparePrinter 
GOSUB initMenu 

WHILE fl=0 

MenuId=MENU(0) 

MenuItem=MENU(1) 

MENU OFF 

IF MenuIteio=l AND MenuId-3 THEN fl=l 
IF MenuId-1 THEN 
in$-font$(Menuitem) 
hgt%=hgt%(MenuItem) 

irKTrj TF 

IF Menuld=2 THEN 
IF Menultem=1 THEN 
GOSUB printText 
ELSEIF Menultem=2 THEN 
GOSUB ChangeParameters 
END IF 
END IF 
LOCATE 1,1 

weite$=RIGHTS(STRS(weite),LEN(STH$(weite))-1) 
hoehe$=RIGHTS(STRS(hoehe),LEN(STR$(hoehe))- 1) 

PRINT "FONT: ";in$;" HOEHE: x";hoehe$;" = “;hoehe*hgt%; "CH 
AR; WEITE: x";weite$;STRINGS(40," ") 

PRINT "MENU-gesteuerter Transparentdrucker" 

MENU ON 

WEND 

CALL FreeMem(b&,8000) 

CLOSE 1 

LIBRARY CLOSE 
END 


ChangeParameters: 

PRINT:PRINT "Vergroesserung:" 

PRINT 

LINE INPUT "Hoehe> 1: ";hoehe$: hoehe=VAL(hoeheS) 

LI.NE INPUT "Weite> 1: weite$: weite=VAL (weiteS) 
CLS 

RETURN 


printText: 

ReadFile in$,8000&,0&,b& 

GOSUB getVar 
PRINT *'FONT> " ; in$ 

PRINT "File ID> ";HEX$(PEEKW(b&+50)) 
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diff%=hiChar%-loChar% 

LINE INPUT "TEXT> ";a$ 

PRINT:PRINT "* printing * M 
PRINT 

FOR x=l TO LEN(a$) 
b$=MID$(a$,x,1) 

PRINT b$; 

loop%=ASC(b$)-loChar% 

GOSUB printlt 
NEXT x 
CLS 

RETURN 

getVar: 

fontEnd%=PEEKW(b&+108) 
ySize%= PEEKW(b&+110) 
xSize%= PEEKW(b&+114) 
baseLine%=PEEKW(b&+116) 
loChar%-PEEK(b&+122) 
hiChar%=PEEK(b&+123) 
charData&=(PEEKL(b&+124)+32)+b& 

Modulo%=PEEKW(b&+128) 
fontLoc&=(PEEKL(b&+130)+32)+b& 
fontSpace&=(PEEKL(b&+134)+32)+ b& 
fontKern&=(PEEKL(b&+138)+32)+b& 

RETURN 

initMenu: 

MakeMenuList 
MENU 1,0,1,"Fonts” 

MENU 2,0,1,"Funktionen” 

MENU 3,0,1,"Beenden" 

MENU 2,1,1,"Text ausdrucken” 

MENU 2,2,1,"Parameter aendern" 

MENU 3,1,1,"OK. Das war's" 

FOR loop%=l TO co 

MENU 1,loop%,1,RIGHTS(font$(loop%),LEN(font$(loop%))-5) 
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NEXT loop% 

MENU ON 
RETURN 

getMemory: 

opt&=2~0 + 2"16 

b&=AllocMem&(8000,opt&) 

IF b&=0 THEN ERROR 7 
RETURN 

preparePrinter: 

OPEN ”prt:" FOR OUTPUT AS 1 
PRINT#1,CHR$(27) + ”[0z " 

RETURN 

printIt: 

start%=PEEKW(fontLoc&+4*loop%) 
wide%=PEEKW(fontLoc&+2+4*loop%) 
space%=PEEKW(fontSpace&+2*loop%) 
kern%=PEEKW(fontKern&+2*loop%) 

FOR loop2%= 0 TO ySize%-1 

trstart&=start%+(loop2%*Modulo%)*8 
transvert trstart&,wide% 

FOR hgt-1 TO hoehe 
ret$(counter)= ret$ 
counter=counter+1 
NEXT hgt 
STOP 

NEXT loo P 2% 

sp%=space%-wide%-kern% 

FOR x%=l TO kern% 

PR INT#1, M 
NEXT x% 

FOR x%=l TO LEN(ret$) 

FOR y%=counter TO 0 STEP -1 
PRINT#1,MID$(ret$(y%), x%,1); 

NEXT y% 
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PRINT#1,"" 
NEXT x% 

FOR x%~0 TO sp% 
PRINT#1,”" 
NEXT x% 
counter=0 
RETURN 


Request: 

LINE INPUT “FONT> "; in$ 
RETURN 


SUB MakeMenuList STATIC 

3HARED buffer&,result$,pointer,co 

opt&=2"0+2"16 

buffer&=AllocMem&(1000,opt&) 

IF buffer&-0 THEN ERROR 7 
bf&=buffer& 

e&=AvailFonts&(buffer&,1000,2) 

IF e&< >0 THEN 

PRINT "We need "; STR$ (e&); "more bytes ! " 

ERROR 7 
END IF 

elements%=PEEKW(buffer&) 
buffer&=buffer&+2 
FOR loop&=1 TO elements% 
t y pe %= PE E KW (buf f e r &) 
co=co+1 

pointer&=PEEKL(buffer&+2) 
getNarae pointer& 

font$(co)="Fonts: M +LEFT$(result$,LEN(result$)-5) 
hgt% (co) = PEEKW(buffer&+6) 
hgt$=STR$(hgt%(co)) 

font$(co)=font$(co)+"/"+RIGHT$(hgt$,LEN(hgt$)-1) 
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buffer&=buffer&+10 
NEXT loop& 

CALL FreeMem(bf&,1000) 
END SUB 


SUB getName(add&) STATIC 

SHARED result$ 
result$="" 

readloop: 

value&=PEEK(add&) 

IF value&<>0 THEN 

result$=result$+CHR$(value&) 
add&=add&+1 
GOTO readloop 
END IF 

END SUB 


SUB transvert (bit&,many%) STATIC 

SHARED charData&,ret$,weite,pl$,upl$ 

plot$=STRING$(weite,pl$) 
unplot$=STRING$(weite,upl$) 

byteOffset%=INT(bit&/8) 
bits%=bit&-(INT(bit&/8)*8) 

IF bits%=0 THEN byteOffset%=byteOffset%-1 
FOR check%-bits% TO bits%+many%-1 
expo%=(check% MOD 8) 

IF expo%=0 THEN byteOffset%-byteOffset%+1 
check&= PEEK(charData&+byteOffset%) 

IF (check& AND 2~(7-expo%))<>0 THEN 
ret$=ret$+plot$ 

ELSE 
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ret$=ret$+unplot$ 
END IF 
NEXT check% 

END SÜB 


SÜB ReadFile(file$,bytes&,position&,buffer&) STATIC 

SHARED gelesen& 

Mode01dFile%=1005 
offsetBeginning%=-1 
file$=file$+CHR$(0) 

handle&=DosOpen&(SADD(file$),Mode01dFile%) 

IF handlet0 THEN 

PRINT "File gibt es nicht" 
fl=l 
END IF 

oldPos&=DosSeek&(handle&,position&,offsetBeginning%) 
gelesen&=DosRead&(handle&,buffer&,bytes&) 

CALL DosClose(handle&) 

END SÜB 



Das AmjgaBASIC. 


91 


Variablenfelder: 

ret$: 

Vergrößerte Punktematrix 

fontS: 

Font-Name 

hgt%: 

Font-Höhe 

Variablen: 

maxFonts%: 

Felderdimensionierung 

hoehe: 

Vergrößerung Y-Richtung 

weite: 

Vergrößerung X-Richtung 

pl$: 

gesetzter Punkt 

upl$: 

nicht gesetzter Punkt 

Menuld: 

Menü-Hauptpunkt 

Menuitem: 

Menü-Unterpunkt 

in$: 

Arbeitsvar., Font-Name 

hgt%: 

Arbeitsvar., Font-Höhe 

weiteS: 

Formatierte Weitenangabe 

hoehe$: 

s.o., Höhenangabe 

diff%: 

Anzahl definierter Zeichen 

a$: 

Text 

b$: 

Textzeichen 

loop%: 

Zeichencode 

fontEnd%: 

Zeiger auf Font-Ende 

ySize%: 

Font-Höhe 

xSize°/o: 

Font-Weite 

baseLine%: 

Fußlinie 

loChar%: 

ASCII; untere Definitionsgrenze 

hiChar%: 

ASCII; obere Def.Grenze 

charData&: 

Zeiger auf Zeichendaten 
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Modulo%: 

Speicheroffset 

fontLoc%: 

Definitionsentschlüsselung 

fontSpace&: 

Zeiger auf Font-Weitentabelle 

fontKern&: 

Zeiger auf Font-Kern-Tabelle 

opt&: 

Speicher-Optionen 

b&: 

Buffer-Adresse 

start%: 

Datenanfang lokal 

wide%: 

Datenweite lokal 

space%: 

Zeichenweite lokal 

kern°/o: 

Kern lokal 

trstart°/o: 

Aktueller Speicherstart 

elements%: 

Anzahl DiskFonts 

buffer&: 

Zweiter Speicher 

byteOffset%: 

Offset in Bytes 

bits%: 

Übriger Offset in Bits 

expo°/o: 

wenn 0: nächstes Byte muß her 


Programmbeschreibung: 

Dieses Programm richtet zunächst einen 8K-Datenbuffer via 
getMemory ein. Anschließend wird der Drucker durch prepare- 
Printer auf 6"/line geschaltet (engere Zeilen). Danach wird das 
Menü initialisiert. Dazu wird MakeMenuList aufgerufen, wel¬ 
ches alle verfügbaren Disk-Fonts in Variablenfeldern speichert. 
Diese werden ausgelesen und in den ersten Menüpunkt transfe¬ 
riert. 

Nun können beliebige Fonts durch Anklicken im Menü selek¬ 
tiert werden. Die Funktion ChangeParameters läßt die Ver¬ 
größerung der Fonts in X- und Y-Richtung zu. Es sollte ledig¬ 
lich beachtet werden, daß die Y-Vergrößerung * Höhe des Fonts 
nicht die Anzahl der vom Drucker horizontal druckbaren Zei¬ 
chen überschreitet. Ausprobieren hilft. 

Der Menüpunkt "Text ausdrucken" fragt nach dem Drucktext. 
Anschließend wird der entsprechende Font in den Datenbuffer 
geladen. Dies geschieht durch ReadFile, da AmigaBASICs OPEN 
die Nullen verschlucken würde. 
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Das bitpacked Image eines jeden Zeichens wird ausgerechnet, 
entsprechend vergrößert und um 90 Grad gedreht auf den Druk- 
ker ausgegeben. 


2.5 Intuition und mehr 

Intuition, eine weitere Library des Amiga, ist hauptsächlich für 
Windows, Screens und Requester verantwortlich. AmigaBASIC 
macht davon auch eifrig gebrauch, wenn es um ebendiese Funk¬ 
tion geht, aber voll ausgenutzt wird sie noch nicht. Wieder sind 
ein paar unserer glorreichen SUB-Routinen nötig, um auch Sie 
in den Genuß der vollen Möglichkeiten zu bringen. 


2.5.1 Ein Automatik-Requester 

Na, wie oft kommt es vor, daß ein Programm eine Frage an den 
Benutzer stellen muß? Zehnmal? Hundertmal? Das fängt doch 
schon bei Standard-Fragen wie "Bitte Disk wechseln" an und 
reicht bis zu Data Beckers speziellen "Sind Sie sicher?"-Warnun- 
gen. In einem Punkte stimmen die Fragen, die man auch ins 
schöne Englisch übersetzen und Requests nennen könnte, jedoch 
überein: Normalerweise benötigt das Programm nur eine soge¬ 
nannte "boolean" Antwort. Ein einfaches "Ja" oder "Nein" reicht 
also schon aus. 

Und genau dafür hat die Intuition schon etwas vorrätig, das 
auch BASIC-Programmen den gewissen Touch der Professiona¬ 
lität geben kann: Einen Auto-Requester. Er wird mit dem fol¬ 
genden Format aufgerufen: 

res&=AutoRequest(WIND0W(7),bodyT,yesT,noT,yesF,noF,Weite, Höhe) 

bodyT : Zeiger auf IntuiText-Struktur mit allgemeinem Text 

yesT : Zeiger auf IntuiText-Struktur mit Text für das Ja-Feld 

noT : Zeiger auf IntuiText-Struktur mit Text für das Mitnichten-Feld 

yesF : Flags für Ja 
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noF : Flags für Nein 

Weite : Weite des Requesters <0-640) 

Höhe : Höhe des Requesters (0-200, bzw. 0-400) 

Es gilt jedoch noch eine schreckliche Hürde zu überspringen. 
Als die Techniker bei Amiga den Rechner zusammenbauten, 
schielten Sie sicherlich ununterbrochen mit einem Auge nach 
links auf einen kleinen Tisch, auf dem sich auf einer Diskette 

ein C-Compiler befand. Jedenfalls muß vor Gebrauch des Au- 

toRequests für jeden Text (und davon gibt es mindestens drei) 
eine IntuiText-Struktur ausgefüllt werden. Von C aus ist es ein 
Kinderspiel, aber in BASIC wird schon einiges extensives Poken 
nötig. Deshalb finden Sie auch gleich eine alles sooo viel einfa¬ 
cher machende SUB-Routine, die folgendermaßen aufgerufen 
wird: 

Request weite%,höhe%,lines% 

weite% : (0-640) 

höhe% : (0-200/0-400) 

lines% : Haupttext-Zeilen (-1) 

Programm-Größe: 1751 Bytes 

Bemerkungen: "intuition.bmap" muß sich auf Disk befinden. 

AutoRequester 

DECLARE FUNCTION AutoRequestfc LIBRARY 
DECLARE FUNCTION AllocReraeraber& LIBRARY 

LIBRARY "intuition.library” 

var: 

DIM SHARED body$(4) 

body$(0)= M Dies ist ein Requester, mit dem man saeumige User” 

body$(1)= M bestraft. Text Nummero 2 passt noch locker mit rei 
n! M 

yes$=”Jawoll, dem ist wohl so!” 
no$=”Aber auf gar keinen Fall.” 

main: 

Request 600,80,1 '1: body-Text 0 und 1 

'2 ■ wuerde body-Text 0, 1 und 2 in den Requ 


ester nehmen 
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IF res&=l THEN 

PRINT "Na, wenigstens einer, der auf mich hoert!" 

ELSEIF res&=0 THEN 

PRINT "Da haben Sie auch wieder Recht, eigentlich zu schad 
e drum! “ 

END IF 

LIBRARY CLOSE 
END 

SÜB Request(wid%,hi%,bt%) STATIC 

SHARED add&,st$,res&,body$,yes$,no$,offs% 

opt&=2" 0+2" 16 

req&=AllocRemember&(0,400,opt&) 

IF req&=0 THEN ERROR 7 

add&=req& 
tl&=add& 

FOR loop2=0 TO bt%-l 
st$=body$(loop2) 

MakeHeader add&,st$,1,5,offs%+3 
offs%=offs%+8 
NEXT loop2 
st$=body$(bt%) 

MakeHeader add&,st$,0,5,offs%+3 

st$=yes$ 

t2&=add& 

MakeHeader add&,st$,0,5,3 

st$=no$ 

t3&=add& 

MakeHeader add&,st$,0,5,3 

res&=AutoRequest&(WINDOW(7),tl&,t2&,t3&,0,0,wid%,hi%) 

CALL FreeRemember(0,- 1) 


END SÜB 



96 


AMIGA Tins & Tricks 


SUB MakeHeader(ptr&,text$,rod%,le%,te%) STATIC 

SHARED add& 
text$=text$+CHR$(0) 

POKE ptr&,1 'Front Pen 

POKE ptr&+l,0 'Back Pen 

POKE ptr&+2,2 'JAM1 

POKEW ptr&+4,le% 'relative left edge offset 

POKEW ptr&+6,te% 'relative top edge offset 

PÖKEL ptr&+8,0 'default font 

PÖKEL ptr&+12,SADD(text$) 'text 
IF md%=0 THEN 

PÖKEL ptr&+16,0 'no cont 

ELSE 

PÖKEL ptr&+16,ptr&+20 
END IF 

add&=ptr&+20 
END SUB 


Variablen-Felder: 


body$: 


Enthält die Zeilen des Text-Körpers 
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Variablen: 

yes$: 

no$: 

res&: 

wid%: 

hi%: 

bt%: 

opt&: 

req&: 

add&: 

tl&: 

t2&: 

t3&: 

stS: 

offs%: 

textS: 

ptr&: 


Enthält Text für’s JA-Feld 

Enthält Text für’s NEIN-Feld 

Vom Requester zurückgeliefertes Resultat: l=Ja, 

0=Nein 

Weite des Requesters in Bildschirm-Punkten 
Höhe des Requesters in Bildschirm-Punkten 
Nummer des letzten definierten Elementes in 
body$ 

gewünschte Memory-Art 

Anfangsadresse des neu angelegten Buffers 

Buffer-Zähler 

Zeiger auf body-IntuiText 

Zeiger auf yes-IntuiText 

Zeiger auf no-IntuiText 

Übergabe-Variable für MakeHeader 

Zeilen-Offset für Body-Text 

Gerade bearbeiteter Text 

MakeHeader-Zeiger 


Zum Aufruf der Routine: 


Vor dem Aufruf der Requester-Routine müssen die folgenden 
Variablen initialisiert werden: 


yes$: Eine Zeile Text, die in das Ja-Feld eingebaut 

wird. Je kürzer desto besser. 
no$: Wie zesS, jedoch für’s Nein-Feld 

Für den Text-Körper können Sie mehr als eine Zeile verwendet. 
Legen Sie die Zeilen bitte der Reihe nach in das Variablen-Feld 
body$: 


body$(0)="Zeile 1" 
body$(1)="Zeile 2" 
(...) 

body$(5)="Zeile 6" 
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Beim Aufruf der Request-Funktion geben Sie bitte die Weite 
und Höhe des Requesters an. Außerdem muß die Nummer des 
letzten definierten Elementes in body$ angegeben werden (im 
obigen Beispiel =5). 

Achtung: Für die Proportionen Ihres Requesters müssen Sie 
selbst sorgen! Zwar wird Intuition immer einen genügend großen 
Rahmen für die Ja- und Nein-Felder zeichnen, aber wenn der 
gesamte Requester zu klein ist, um Ihre Texte aufzunehmen, 
dann kommt es zu recht eigentümlichen Ergebnissen 
(Mode=COMPLEMENT...). 

Während der Requester "draußen" ist, hält AmigaBASIC natür¬ 
lich im Programm-Ablauf inne. Es geht erst weiter, wenn mit 
der Maus entweder das Ja- oder das Nein-Feld angeklickt wird. 
In der Variablen res& wird das Ergebnis der Frage zurückgelie¬ 
fert: l=Ja, 0=Nein. So können Sie auf die Antwort eingehen 
(ansonsten wäre der ganze Requester ohnehin sinnlos). 


Programm-Beschreibung: 

Die beiden benötigten Intuition-Funktionen werden deklariert 
und die Library geöffnet. Das Feld body$ wird eingerichtet und 
als SHARED deklariert, damit die Sub-Routine Request auch an 
die Textzeilen herankommt. Im Moment hat dieses Feld 4 Ele¬ 
mente, es können also maximal 5 Zeilen Haupt-Text ausgegeben 
werden. Es liegt jedoch ganz bei Ihnen, diesen Wert zu erhöhen. 

Die nötigen Textvariablen werden für einen Testdurchlauf mehr 
oder weniger geistreich bestückt, und dann wird der Requester 
aufgerufen (600 Punkte breit, 80 Punkte hoch, 2 Zeilen Haupt¬ 
text; 0 und 1). Anschließend wird dem Resultat zufolge geant¬ 
wortet. 

Die SUB-Routine Request erklärt erst einmal eine ganze Reihe 
Variablen für allgemeingültig, da viele an MakeHeader weiter¬ 
gegeben oder ans Hauptprogramm zurückgeliefert werden müs¬ 
sen. Ein 400 Bytes umfassendes Speicherplätzchen wird gesucht 
und (hoffentlich) gefunden. Anschließend wird an den Anfang 
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dieses Buffers von MakeHeader die IntuiText-Struktur für die 
erste body-Zeile gePOKEd. Ist übrigens nur eine Zeile dafür 
vorgesehen, dann tut sich in der Schleife loop2 gar nichts. 

Die zweite SUB-Routine, MakeHeader, ist in der Lage, eine 
IntuiText-Struktur in den Speicher zu poken. Dazu werden ihr 
die gewünschte Anfangsaddresse, der Text, ein Flag und die x- 
und y-Positionen des Textes übergeben. Ist das Flag=l, dann 
stellt MakeHeader in der IntuiText-Struktur einen Link zum 
nächsten Block her. So können mehrere Zeilen Text im Haupt¬ 
text ausgegeben werden (ist auch im Ja- und Nein-Feld mög¬ 
lich). 

Die IntuiText-Blöcke werden in den Speicher gebracht, wobei 
die jeweiligen Anfangsadressen in t(l,2,3)& untergebracht wer¬ 
den. Nun kann die eigentliche Funktion AutoRequest aufgerufen 
werden, die den Requester zusammenbaut. In res& wird das 
Resultat zurückgemeldet. Nun muß nur noch der Buffer freige¬ 
geben werden, und Request hat seine Arbeit getan. 


2.5.2 Intuition-Alarm 

Das plötzliche Überschwemmen des Bildschirmes mit einer dra¬ 
matisch rot-blinkenden Alarm-Meldung ist schon ein Ereignis. 
Oftmals ein schlechtes, aber es bleibt ein Ereignis. Das gesamte 
System hält den Atem an, während der Alarm - oftmals letzte 
Rettung vor einem System-Absturz - auf dem Bildschirm 
blinkt. Sie sollten aus diesem Grund einen Intuition-Alarm nur 
in taktisch wichtigen Situationen verwenden. In allen anderen 
Fällen tut ein ganz gewöhnlicher Requester genau denselben 
Dienst, nur fährt dem Benutzer nicht so ein Schrecken in die 
Knochen, und das Multi-Tasking-System kann auch frohgemut 
ohne Unterbrechung und lästige Wartereien arbeiten. 

Der Intuition-Alarm sorgt für einen blinkenden roten Rahmen 
auf schwarzem Hintergrund bei der 640-Pixel-Auflösung. Er 
kann so hoch wie nötig sein und gegebenenfalls den gesamten 
Bildschirm ausfüllen. Der Alarm erscheint immer am oberen 
Bildschirmrand und drückt den bestehenden Screen, sofern er 
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noch funktionsfähig ist, nur herunter. Handelt es sich jedoch um 
einen unheilbaren Alarm, und das System steht kurz vor dem 
Absturz, dann übernimmt der Alarm automatisch den gesamten 
Bildschirm. 

Sie als Benutzer können natürlich auch Alarm-Meldungen erzeu¬ 
gen, denn Ihnen stehen dieselben Mittel zur Verfügung, auf die 
auch das System zurückgreifen muß. Es geht von BASIC aus so¬ 
gar ziemlich leicht, wenn Sie mit Kompromissen einverstanden 
sind: 


ERROR 14 

produziert einen OUT-OF-HEAP-SPACE-Error, der das Format 
eines Alarms aufweist. 

Grundsätzlich gibt es zwei verschiedene Alarm-Typen: 

DEAD-END (nix mehr zu machen) und RECOVERY (da können 
wir noch was dran drehen). Im ersten Fall handelt es sich nur 
um eine Meldung an den Benutzer, daß sich der Rechner im 
Absturz befindet, und es spielt überhaupt keine Rolle, welche 
der beiden Maus-Tasten Sie zur Bestätigung drücken. Anders 
sieht es im zweiten Fall aus, bei dem 0 für die rechte und 1 für 
die linke Taste zurückgemeldet wird. 

Um einen Alarm zu produzieren, bedient man sich am Besten 
des Intuition-Befehls: 

res=DisplayAlert(AlarmNummer, String, Höhe) 

Bei der Alarmnummer handelt es sich um eine LONG-Variable 
(z.B. a&). Nur die ALERT-TYPE-Bits spielen eine Rolle. 

Der String enthält die eigentliche Meldung. Er ist folgender¬ 
maßen aufgebaut: 


16-bit x-Koordinate 
8-bit y-Koordinate 
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ASCII-String, mit 0 abgeschlossen 
Cont-Byte (0=das war's, 1=noch ein Text) 

Die Höhe muß in Bildschirmpunkten angegeben werden und 
bestimmt die Größe der Alarmmeldung. 

Schauen Sie sich einfach das folgende Beispielprogramm an, das 
einen RECOVERY-Alert produziert (wir wollen schließlich noch 
weitermachen!). 

DECLARE FUNCTION DisplayAlert& LIBRARY 

LIBRARY "Intuition.library" 

var: 

alertNum&=0 'recovery alert 

text$=CHR$(0)+CHR$(30)+CHR$(2Q)+”Hallo Jungs, dies ist eine 
dieser tollen Alarrameldungen," 

text$= text$+CHR$(0)+CHR$(1)+CHR$(0) +CHR$ (30) +CHR$ (28 )+"die e 
inem normalerweise das Blut in den Adern" 
text$=text$+CHR$(0)+CHR$(1)+CHR$(0)+CHR$(30)+CHR$(36)+"gefri 
eren lassen. Diese hier ist aber gan 2 " 
text$=text$+CHR$(0)+CHR$(1)+CHR$(0)+CHR$(30)+CHR$(44)+"harml 
os. " 

text$=text$+CHR$(0)+CHR$(1)+CHR$(0)+CHR$(30)+CHR$(56)+"Druec 
ken Sie einfach die linke Mouse-Taste, wenn” 
text$=text$+CHR$(0)+CHR$(1)+CHR$(0)+CHR$(30)+CHR$(64)+”Sie d 
ieses Buch moegen, sonst die rechte!” 
text$=text$+CHR$(0)+CHR$(1)+CHR$(0)+CHR$(15)+CHR$(82) + M [abso 
lute Spitzenklasse]] [fast ausgezeichnet]” 

text$=text$+CHR$ (0) 
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main: 

res&=DisplayAlert&(alertNum&,SADD(text$),100) 

IF res&=1 THEN 

PRINT "Gut, der Mann! die Frau! Sie verstehen schon, wann 
Sie ein" 

PRINT "gutes Buch in den Haenden halten. Gratuliere!" 

ELSE 

PRINT "Kultur-Banause! Man sollte Sie ueber's Knie legen.. 

PRINT "WER, wenn nicht wir, haette Ihnen beigebracht, wie 
man diese" 

PRINT "tollen Alarm-Meldungen produziert? Hm? Wollen wir e 
s noch" 

PRINT "einmal versuchen?" 

FOR t=l TO 15000 

NEXT t 

RUN 

END IF 

Die vielen CHR$-Codes dienen der Positionierung und Verbin¬ 
dung der einzelnen Zeilen. Näheres dazu siehe oben. 

Noch einmal wollen wir darauf hinweisen, daß bei einem Alarm 
das gesamte System stehenbleibt. Falls Sie noch ein zweites oder 
drittes (BASIC-)-Programm ausgeführt hatten, dann wird auch 
diesem für die Dauer des Alarms der Strom abgedreht. Noch ein 
kleiner Scherz am Rande: Sollten Sie einmal über ein bißchen 
Extra-Zeit verfügen, dann setzen Sie einmal für alertNum& den 
Wert &H8000 ein! Sie verwandelt so den Recovery-Alert in 
einen Dead-End. Viel Spaß! 

Übrigens: Obwohl Ihr Screen verschwunden ist, hat sich das Sy¬ 
stem nicht abgemeldet. Schließlich waren Sie es durch Ihr Pro¬ 
gramm, der den DEAD-END-Alarm produziert hat. Folgerichtig 
gibt Intuition die Kontrolle auch wieder an Sie ab. Ihr BASIC- 
Programm läuft also weiter, obwohl Ihr Screen verschwunden 
ist. Hatten Sie zum Beispiel ein Vogelstimmen-Imitator-Pro- 
gramm im Speicher, dann werden auch weiterhin Vogelstimmen 
in der Luft liegen. Zwar gibt es Mittel und Wege, wieder an 
einen Screen heranzukommen, aber wozu der Umstand? Sofern 
Sie einen RECOVERY-Alert spezifieren, haben Sie all diese 
Probleme ja gar nicht. 
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2.5.3 Offizielle Alarm-Meldungen 

Neben all diesem Unsinn kann es natürlich auch mal Vorkom¬ 
men, daß eine echte Alarm-Meldung dazwischenrutscht. Dann 
wird die Sache ernst, denn das System gibt diese Meldungen im 
Gegensatz zu uns nicht zur allgemeinen Belustigung aus, sondern 
weil ein Zustand eingetreten ist, den es nicht mehr selbst behe¬ 
ben kann (und was kann der Amiga nicht selbst beheben?). 

Falls also eine solche Meldung auf dem Schirm auftaucht, dann 
drücken Sie bitte nicht blitzschnell auf eine der Maus-Tasten, 
sondern schlagen Sie diese Seiten auf. Würde die Alarmmeldung 
dem Benutzer nur sagen: "Hallo, tschüß! Ich geh’ jetzt!", dann 
hätte man auch gleich auf sie verzichten können, und der Rech¬ 
ner wäre sang- und klanglos zehn Sekunden früher abge¬ 
schmiert. Jeder Intuition-Alarm führt eine sogenannte "Guru 
Meditation"-Nummer mit sich. Diese Nummer kann bei der 
Fehlersuche sehr hilfreich sein, kennt man ihre Dekodierung. 
Hier ist sie: 


Alarm Typen: 


0x80000000 Dead End 
0x00000000 Recovery 


Allgemeine Alarm-Ursachen: 


0x00010000 

0x00020000 

0x00030000 

0x00040000 

0x00050000 

0x00060000 


Kein Speicherplatz 
Library zerstört 

Library konnte nicht geöffnet werden 
Gerät konnte nicht benutzt werden 
Resource konnte nicht geöffnet werden 
I/O Error 


Alarm-Objekte: 


0x00008001 

0x00008002 

0x00008003 

0x00008004 


exec.library 

grphics.library 

layers.library 

intuition.library 
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0x00008005 

0x00008006 

0x00008007 

0x00008008 

0x00008009 

0x00008010 

0x00008011 

0x00008012 

0x00008013 

0x00008014 

0x00008015 

0x00008020 

0x00008021 

0x00008022 

0x00008030 

0x00008031 


math.library 

clist.library 

dos.library 

ram.library 

icon.library 

audio.device 

console.device 

gameport.device 

keyboard.device 

trackdisk.device 

timer.device 

cia.resource 

disk.resource 

miscellaneous.resource 

Bootstrap 

Workbench 


Spezielle Alarm-Meldungen: 


exec.library: 


0x81000001 

0x81000002 

0x81000003 

0x81000004 

0x81000005 

0x81000006 

0x81000007 


68000 exception vektor checksum 
execbase checksum 
library checksum failure 
no memory to make library 
corrupted memory list (häufig.) 
no memory for interrupt Servers 
InitStructO of an APTR-Source 


graphics.library: 


0x82010001 

0x82010002 

0x82000003 

0x82000004 

0x82010005 

0x82010006 

0x82010007 


Copper display list out of memory 
Copper instruction list out of memory 
Copper list overload 
Copper intermediate list overload 
Copper list head out of memory 
long frame out of memory 
short frame out of memory 
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0x82010008 

0x82010009 

0x82010010 


flood fill out of memory 
no memory for TmpRas for text 
BltBitMap out of memory 


intuition.library: 


0x84000001 

0x84010002 

0x84010003 

0x04010004 

0x84010005 

0x84000006 

0x84010007 

0x84010008 

0x84000009 

0x8401000A 

0x8401000B 

0x8400000C 

0x8400000D 

0x8400000E 

0x8400000F 


unknown gadget type 

no memory for create port 

item plane allocation, no memory 

sub allocation out of memory 

plane allocation out of memory 

item box top smaller than RelZero 

no memory for open screen 

no memory for open screen raster allocation 

open sys screen of unknown type 

no memory for adding SW Gadgets 

no memory for open window 

entering intuition: bad state return 

bad message received by Intuition DCP 

weird echo causing incomprehenson 

Console Device couldn’t be opened 


dos.library: 


0x07010001 

0x07000002 

0x07000003 

0x07000004 

0x07000005 

0x07000006 

0x07000007 

0x07000008 

0x07000009 

0x0700000A 

0x0700000B 

0x0700000C 


no memory at startup 

EndTask didn’t end 

Qpacket failure 

unexpected packet received 

Freevec failed 

Disk Block Sequence Error 

Bitmap corrupt 

Key already free 

Invalid Checksum 

Disk Error 

Key Out of Range 

Bad Overlay 


Dies sind die wichtigsten Error-Codes. Nur den wenigsten wer¬ 
den Sie jedoch in Alarm-Meldungen Auge in Auge gegenüber- 
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stehen, da das Betriebssystem versucht, diese Fehler vorher 
selbst zu beheben. 


2.5.4 Window-Manipulationen 

Nanu, wie kommen wir denn auf dieses Thema, noch dazu an 
dieser Stelle? Obwohl Sie Windows vermutlich mit dem Amiga- 
BASIC-Befehl WINDOW öffnen und verwalten, werden sie in 
Wirklichkeit von Intuition produziert und überwacht. So schön 
und nett der WINDOW-Befehl auch sein mag, auf die Dauer 
wird es langweilig. Da muß doch noch mehr zu machen sein... 
Früher oder später wird der ambitionierte Programmierer die 
Hintertür entdecken, die in AmigaBASIC eingebaut wurde: 
Durch Aufruf der Kommandos WINDOW(7) bzw. WINDOW(8) 
kommt man an den Rast-Port und die Intuition-Verwaltung ei¬ 
nes (gerade mit WINDOW OUTPUT selektierten) Windows. Der 
Rast-Port wurde bereits des öfteren in Verbindung mit Befehlen 
aus der graphics.library benutzt, die Intuition-Verwaltung ist 
neu. 

Jedes durch Intuition geöffnete Window (im Normalfall sämtli¬ 
che Windows auf dem Bildschirm, es sei denn. Sie haben Ihr ei¬ 
genes Betriebssystem entwickelt) besitzt eine WINDOW-Struktur. 
Diese enthält zum einen wichtige Daten über das Window selbst, 
zum anderen bietet sie einen Link zur vorangegangenen und 
nachfolgenden WINDOW-Struktur. Im Folgenden wollen wir 
Ihnen ein paar kleine Tricks damit zeigen. 


2.5.4.1 ClearMenuStrip 

Die Intuition-Funktion ClearMenuStrip kann mit einem Aufruf 
das gesamte Menü eines Windows ausradieren. Dies funktioniert 
so: 



Das AmjgaBASKL 


107 


LIBRARY "intuition.library“ 

CALL ClearMenuStrip(WINDOW(7)) 'Menustrip des OUTPUT Windows 


'In den Normalzustand gelangt man durch Eingabe 
'von: 

'MENU RESET 

LIBRARY CLOSE 
END 

Der Sinn dieser Funktion ist allerdings recht zweifelhaft: Sobald 
von BASIC aus ein neues Menü definiert wird, tauchen die Re¬ 
ste des alten wieder auf. Zum kurzfristigen Verschlucken des 
Menüs (um Fehlbedienung zu vermeiden oder den Benutzer zu 
erschrecken) ist sie jedoch recht nützlich. 


2*5.4*2 Veränderung des IDCMP 

Den IDCMP Intuition Direct Communications Message Port kann 
man für jedes Window von Intuition einrichten lassen. So kön¬ 
nen dann wichtige Informationen bezüglich des Windows, z.B. 
Maus-Bewegungen, Menü-Wahl etc., an ein potentielles Pro¬ 
gramm weitergegeben werden* 

Genau dies geschieht im Fall von AmigaBASIC. Durch den In¬ 
tuition-Befehl ModifylDCMP läßt sich das IDCMP-Flag des 
Windows manipulieren. Dieses Flag bestimmt, welche aus der 
Fülle der zur Verfügung stehenden Informationen an das Pro¬ 
gramm übergeben werden. Durch systematisches Verändern die¬ 
ses Flags läßt sich schon was machen: 
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LIBRARY "intuition.library" 

fl%-&H36E 

CALL ModifylDCMP(WINDOW(7),fl%) 

PRINT ”Um wieder surueck in den Normalzustand zu kommen," 

PRINT "bitte im Menu 'CONTINUE' anwaehlen!" 

STOP 

CALL ModifylDCMP(WINDOW(7),&H76E) 

fl% ist dabei der neue Inhalt des Flags. Hier ein paar Werte und 

deren Effekte: 

&H76E normal 

&H766 MOUSEBUTTONS wurde ausgeschaltet. Der BASIC- 

Befehl MOUSE(O) wartet nun ewig auf ein Zeichen 
von der Maus. Auch das Umschalten zwischen LIST 
und BASIC wird erschwert. 

&H66E MENUPICK, zwar gibt es das Menu noch, aber 
sämtliche Menu-Punkte werden funktionslos. 

&H36E Sofern das BASIC-Window aktiv ist, werden sämtli¬ 

che Tastendrücke ignoriert. 


2.5.4.3 Programmgesteuertes WINDOW 

Mit der Maus läßt sich (fast) jedes Window beliebig auf dem 
Bildschirm positionieren. Soweit ist das ja auch recht schön, aber 
nicht immer möchte man dazu die Maus benutzen. Programm¬ 
gesteuert ist das doch viel eleganter. Die "intuition.library" 
macht’s wieder möglich: 
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LIBRARY "intuition.library" 

WINDOW 2,"Hello!",(10,10)-(350,150),0 
WINDOW OUTPUT 2 

PRINT "Hello 3" 

FOR t=l TO 5000:NEXT t 

CALL MoveWindow(WINDOW(7),20,30) 

FOR t=l TO 2000:NEXT t 

PRINT "Ich habe mich gerade bewegt!" 

CALL MoveWindow(WINDOW(7),-20,-30) 

FOR t=l TO 2000:NEXT t 
PRINT "Schon wieder!" 

FOR t=l TO 10000:NEXT t 

WINDOW CLOSE 2 

LIBRARY CLOSE 
END 


Achtung: Der Intuition-Befehl MoveWindow kontrolliert Ihre 
Eingaben nicht auf Fehler. Falls Ihre Delta-Werte in den Ecken 
eines fernen Universums liegen, dann versucht Intuition, das 
Window in die Ecken eines fernen Universums zu bewegen. Auf 
Grund der Störungen im Raum-Zeit-Kontinuum, die daraus 
resultieren können, ist das Ergebnis kein schöner Anblick. 

Bei den Delta-Werten handelt es sich um die Verschiebung in x- 
bzw. y-Richtung von der linken oberen Ecke des Windows aus 
gesehen. Sollte sich auf Grund Ihrer Verschiebung auch nur ein 
klitzekleiner Teil des Windows aus dem Bildschirmbereich da¬ 
vonstehlen, so kontert der Amiga mit einer Guru Meditation. 


2,5*4,4 Move Screen 

Was für das Window gilt, hat natürlich auch für den Screen 
seine Gültigkeit! Auch der Screen kann programmgesteuert 
hoch- und runtergescrollt werden. Diesmal hilft der Intuition- 
Befehl: 


MoveSc reen(Screen,DeltaX,DeltaY) 
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Wie auch bei MoveWindow handelt es sich um Delta-Verschie¬ 
bungen, die relativ zur gegenwärtigen Position sind. Screen ist 
ein Zeiger auf die Screen-Struktur des gewünschten Screens. Wir 
können den Zeiger leicht aus der bereits bekannten WINDOW- 
Struktur auslesen: 

screen=PEEKL(WIND0W(7)+46) 

So läßt sich der Screen verschieben: 


LIBRARY "intuition.library" 

FOR X- 1 TO 280 
ScreenDown 
NEXT x 

FOR x=l TO 28 0 
ScreenUp 
NEXT x 

LIBRARY CLOSE 
END 


SUB ScreenUp STATIC 

sc&=PEEKL(WINDOW(7)+46) 
CALL MoveScreen(sc&,0,-1) 

END SUB 

SUB ScreenDown STATIC 

sc&=PEEKL(WINDOW(7)+46) 
CALL MoveScreen(sc&,0,1) 


END SUB 
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Es ist jedoch derzeitig unmöglich, einen Screen in x-Richtung 
zu verschieben. 


2.5.4.5 SetWindowTitles - Windows benennen 

Ist Ihnen aufgefallen, daß jedes WINDOW einen eigenen Namen 
besitzt? Da gibt es das BASIC-Window (bzw. "der-Name-Ihres- 
Programmes"-Window), ein LIST-Window, und jedes neuer¬ 
schaffene Window wird ebenfalls mit einem wohlklingenden 
Namen versehen. Als Spielerei ist das wunderschön, aber diese 
Namen lassen sich auch programmtechnisch sehr vielseitig nut¬ 
zen. So könnte man beispielsweise das Ausgabewindow mit dem 
Namen des gerade aktivierten Menü-Punktes belegen, eine Co¬ 
pyright-Meldung oder einen wichtigen Benutzerhinweis einfü- 
gen, etc., etc. Aber wie lassen sich die Window-Namen nun 
verändern, ohne gleich ganz neue Windows zu schaffen? 

Mit der folgenden SUB-Routine kein Problem! Der Aufruf er¬ 
folgt durch: 


SetTitle windowS,screen$ 

window$ ist dabei der neue Name des Ausgabewindows (kann 
durch WINDOW OUTPUT bestimmt werden). Mit screen$ kann 
sogar der Name des Screens verändert werden, in dem sich das 
Window befindet. Um einen Namen unverändert zu lassen, be¬ 
nutzt man als Namen CHR$(0). 

LIBRARY M intuition.library” 

SetTitle “(C) 1986 by Tobe“, “Amiga Tips&Tricks" 


LIBRARY CLOSE 
END 
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SUB SetTitle(wind$,scr$) STATIC 

wind$=wind$+CHR$(0) 
scr$=scr$+CHR$(0) 

CALL SetWindowTitles(WIND0W(7),SADD(wind$),SADD(scr$)) 

END SUB 

Der neue Screen-Title wird natürlich nur angezeigt, wenn auch 
das aktuelle BASIC-Window aktiv ist. 


2.5.4.6 Window-Limits 

Spielen Sie einmal ein bißchen mit dem Sizing-Gandet Ihres 
BASIC-Windows herum! Sicherlich werden Sie merken, daß sich 
Windows nur bis zu einer bestimmten Größe verkleinern kön¬ 
nen. In der Intuition-Windowstruktur gibt es vier Speicherwerte, 
die die kleinst- und größtmögliche Ausdehnung eines Windows 
festlegen. 

Mit der Intuition-Funktion WindowLimits lassen sich diese Li¬ 
mits nach Herzenslust verändern. Die folgende Routine erledigt 
diese Aufgabe und wird durch: 

Limit minX, minY, maxX, maxY 

aufgerufen. 

Achtung: Wenn Ihre Minimum-Werte größer sind als das be¬ 
treffende Window auf dem Schirm, oder wenn Ihre Maximal¬ 
werte kleiner sind als das Window, kommt es zu einer Fehler¬ 
meldung. 
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'Mit diesem Programm koennen Sie Ihr 
'BASIC-Window der neuen Workbench (Ver- 
'sion 1.2) anpassen; es laesst sich 
'nun auf volle Bildschirmgroesse ver- 
'groessern (640*270) 


DECLARE FUNCTION WindowLimits& LIBRARY 

LIBRARY “Intuition.library" 

Limit 5,5,640,270 

LIBRARY CLOSE 
END 


SUB Limit(minX%,minY%,maxX%,maxY%) STATIC 

e&=WindowLimits&(WINDOW(7),minX%,minY%,maxX%, 
IF e&=0 THEN 

PRINT "Min.-Werte groesser als Window oder" 
PRINT "Max.-Werte kleiner als Window“ 

ERROR 255 
END IF 


2.6 Memory-Handling 

Das gesamte Betriebssystem des Amiga war von vornherein 
darauf ausgelegt worden, Erweiterungen und Verbesserungen 
gegenüber so offen wie möglich zu stehen. Hinzu kamen die 
Anforderungen, die man an einen Multitasking-Computer stellen 
muß, und das Ergebnis war eine besondere Art der Speicher¬ 
verwaltung: Sieht man von Adresse 4 und den Hardware-Adres¬ 
sen ab, dann gibt es keine absoluten Speicherplatz-Belegungen. 
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Wer zuerst kommt, mahlt zuerst. Programme, die in C oder As¬ 
sembler geschrieben wurden, können frei im Speicher verscho¬ 
ben werden. Auch der AmigaBASIC Interpreter kann zu ver¬ 
schiedenen Zeitpunkten an ganz verschiedenen Stellen im Spei¬ 
cher liegen. 

Es gibt allerdings einen grundsätzlichen Speicheraufbau, den wir 
Ihnen natürlich nicht vorenthalten wollen: 


Adreß-Bereich-Belegung: 


000000-3FFFFF 
000000-07FFFF 
200000-9FFFFF 
A00000-BFFFFF 
BFDOOO-BFDFOO 
BFE001-BFEF01 

C00000-DFEFFF 
DFF000-DFFFFF 
EOOOOO-E7FFFF 
E80000-EFFFFF 
F00000-F7FFFF 
F80000-FFFFFF 


RAM der ersten 256K 

RAM mit 256K-Speichererweiterung 

8 MByte für Erweiterungen 

Platz für externe Decoder Erweiterungen 

8520-B (nur an geraden Adressen adressiert) 

8520-A (nur an ungeraden Adressen 

adressiert) 

Reserviert für zukünftige Erweiterungen 
Spezial Chips 

Reserviert für zukünftige Erweiterungen 
Expansion Slot Decoding 
Reserviert für zukünftige Erweiterungen 
SYSTEM ROM oder Kickstart WOM 


2.6.1 Speicher durch Variablen 

Einen einfachen Weg, RAM-Speicher zu reservieren, ist die 
Verwendung eines Variablenfeldes. Dazu müssen Sie lediglich 
ein entsprechend großes Variablenfeld dimensionieren. An¬ 
schließend erhalten Sie die Anfangsadresse im Speicher durch 
den AmigaBASIC-Befehl VARPTR: 

D1M picture%(100) 
add&=VARPTR(picture%(0)) 

Mit diesem Beispielprogramm stünden Ihnen beispielsweise 200 
Bytes (Integer=2 Bytes) ab add& im Speicher zur Verfügung. 
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2.6.2 Speicher reservieren 

Zwei Befehle aus Intuition bzw. Exec, liefern Ihnen soviel 
Speicherplatz wie Sie brauchen (vorausgesetzt, Ihr Amiga spielt 
mit). Es handelt sich dabei um die Exec-Funktion AllocMem 
und die Intuition-Funktion AllocRemember. 

Sie können frei wählen, aus welchem der folgenden Speicher¬ 
blöcke Sie gern ein Stück hätten; eine konkrete Anfangsadresse 
können Sie jedoch niemals im voraus festlegen. 

PUBLIC 2 A 0 

CHIP 2 A 1 Für DMA, etc. 

FAST 2 A 2 Non-Chip-Speicher 

CLEAR 2 A 16 Löscht den Speicher vor Übergabe 


AllocMem 

AllocMem reserviert einen beliebig langen Speicherblock für Sie. 
Es liegt in Ihrer Verantwortung, diesen nach Gebrauch via 
FreeMem zurückzugeben: 

DECLARE FUNCTION AUocMem& LIBRARY 
LIBRARY "exec.library” 

opt&=2 A 1+2 A 16 

buf f er&=A l locM«n&( 1000, opt&) 

IF buffer&=0 THEN ERROR 7 


(...) 


CALL FreeMem(buffer&,1000) 

LIBRARY CLOSE 

END 
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AllocRemember 

AllocRemeber hilft Ihnen, wie der Name schon sagt, beim Erin¬ 
nern. Sie können AllocRemember beliebig oft aufrufen, um 
ebenso viele Speicherblöcke zu erhalten. Brauchen Sie diese 
nicht mehr, dann können alle Blöcke mit einem Schlag durch 
FreeRemember freigegeben werden, ohne daß Sie sich noch um 
Größe und Anfangsadressen der einzelnen Blöcke kümmern 
müssen: 

DECLARE FUNCTION AUocRememberS LIBRARY 
LIBRARY "intuition.tibrary" 

opt&=2 A 1+2 A 16 'CHIP und CLEAR 
buffer1&=AllocRemember&(0,1000,opt&) 

IF buffer&1=0 THEN ERROR 7 


(...) 


buffer2&=AllocRemember&(0,7650,opt&) 
IF buffer2&=0 THEN ERROR 7 


(...) 


CALL FreeRemember(0,-1) 

LIBRARY CLOSE 
END 

Diese Methode benötigt ein wenig mehr Speicherplatz als Alloc- 
Mem, da zum "Merken" der Parameter eigens eine kleine Daten¬ 
struktur angelegt werden muß. 


2.7 Das Disketten-Laufwerk 

Das interne 3.5 Inch Disk Drive des Amiga besitzt zwei 
Schreib/Lese-Köpfe, die gleichzeitigen Zugriff auf beide Dis¬ 
kettenseiten zulassen. Die Diskette selbst wird pro Seite in 80 
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Zylinder unterteilt. Jeder Zylinder besteht aus 11 Sektoren, die 
wiederum jeweils 512 benutzbare Datenbytes sowie 16 Sektor¬ 
verwaltungsbytes beinhalten. Damit stehen insgesamt: 

2 Köpfe * 

80 Zylinder * 

11 Sektoren * 

512 Bytes = 

und 901120 Bytes (880 KByte) Data sowie 28160 Bytes (28 
KByte) Label zur Verfügung. 

Der Amiga Disk Controller kann es mit bis zu vier 3.5-, bzw. 
5.25-Inch-Drives aufnehmen. Durch DMA (Direct Memory 
Access) können diese Drives weitgehend unabhängig vom übri¬ 
gen System betrieben werden. 

Um an die Disk Drives heranzukommen, kann man sich ver¬ 
schiedener Anwendungsebenen bedienen: 

1. Programm 

2. Command Line Interface 

3. AmigaDOS 

4. Trackdisk Device 

5. Hardware direkt 

Gleich vorweg sei gesagt, daß dem AmigaBASIC-Programmierer 
alle fünf Möglichkeiten offenstehen. 


2.7.1 Das CLI in AmigaBASIC-Programmen 

Das Command Line Interface (CLI), jene in der "System" - 
Schublade verborgene Schnittstelle Mensch - DOS, kann auch in 
AmigaBASIC-Programmen direkt verwendet werden! Die etwas 
spärlich ausgefallenen AmigaBASIC-eigenen Diskettenbefehle 
werden nun von einer wahren Fülle neuer Befehle ergänzt, die 
sich alle um das Thema Disk drehen. 
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Das folgende Programm verwendet die DOS-Library und stellt 
den neuen Befehl "CLI" zur Verfügung, mit dem alle CLI- 
Befehle ausgeführt werden können. Das Format ist: 


CLI "command-string 11 

zum Beispiel: 

CLI "List dfOifonts keys to prt 

würde das Unter-Directory der Disk in Laufwerk 0 (intern) so¬ 
wie die Blocknummern (Keys) der einzelnen Files auf den 
Drucker ausgeben. 


Programm-Größe: 2291 Bytes 

Bemerkungen: "dos.bmap" muß sich auf Disk befinden 

'CLI 


'* * 

'* (C) 1986 by DATA BECKER GmbH W.-Ger. * 

'* (P) by Tobias “Kutte" Weltner * 

'* * 

'* Dieses Programm ermoeglicht den Ein- * 


'* satz des Command Line Interface (CLI) * 
'* durch AmigaBASIC Programme. Weitere * 

Informationen und Programme hierzu * 

'* finden Sie in DATA BECKERs “AMIGA * 

'* Tips & Tricks". * 

'* * 
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DECLARE FUNCTION DosOpenÄ LIBRARY 'Eroeffnen des CLI-Win 

dows 

DECLAPE FUNCTION DosExecute& LIBRARY 'Ausfuehren eines CLI- 
Befehls 

LIBRARY "dos.library" 'alles au Finden in der DOS-Library 

main:'================(demo)====================== 

CLI "list dfO: KEYS“ '= • 

LIBRARY CLOSE 
END 


SUB CLI(execute$) STATIC 


'Befehlsformat: CLI "CLI-Befehl/Befehls-Sequenz 


command$=execute$+CHR$(0) 'Befehl mit '0' abschl 

s en 

wind$=“CON:10/10/600/190/CLI M +CHR$(0) 'CLI-Window definieren 


f &=DosOpen&(SADD(wind$),1006) 

IF f&=0 THEN 
ERROR 255 
END IF 

s&=DosExecute&(SADD(comraand$),0,f&) 'CLI-Befehl ausfuehren 


'Window eroeffnen 
'will nicht 
'ERROR ausgeben 
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IF s&=0 THEN 
usge- 
ERROR 255 
END IF 

FOR t=l TO 10000:NEXT t 


CALL DosClose(f&) 
Hessen 

END SUB 


'command$=:CL I*Bef ehl 
'Befehl konnte nicht a 

'fuehrt werden (s&=0) 

'CLI-Window wieder sch 

'das war's 


Variablen: 


execute$: 

commandS: 

windS: 

f&: 

s&: 


die Befehlssequenz 
0-terminated 

CLI-Window Parameter für Console Device 
File Handle für CLI-Window 
Fehler-Flag 


Programmbeschreibung: 

Die beiden DOS-Funktionen Open und Execute werden als 
Funktionen deklariert. Nach dem Öffnen der benötigten Library 
wird der CLI-Befehl einer Probe unterzogen. 

Der Befehlstext in executeS wird nach commandS transferiert, 
wo er mit einem Null-Byte abgeschlossen wird. Über das Con¬ 
sole Device wird in den nächsten beiden Zeilen ein Window ge¬ 
öffnet. Dies ist erforderlich, weil der Execute-Befehl, der 
schließlich den CLI-Befehl ausführt, eine AmigaDOS-File 
Handle als Ausgabe-Adresse erwartet. 
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DosExecute wird die Anfangsadresse des Befehls-Strings sowie 
Input- und Output-Parameter geliefert. Kein weiterer Input 
wird erwartet (=0), die Ausgabe erfolgt nach f&, dem neuen 
Window. 

Falls der gewünschte CLI-Befehl nicht wunschgemäß ausgeführt 
werden kann, meldet Execute in s& einen Fehler (s&=0). 
Andernfalls wird auf einen Maus-Click gewartet, das Window 
wieder geschlossen und CLI verlassen. 


2.7.2 Programm-Kommentare setzen 

Jedes Programm oder Directory kann mit einem bis zu 80 Zei¬ 
chen langen Kommentar versehen werden. Oft gibt der Pro¬ 
gramm-Name allein nicht genügend Auskunft über Sinn und Art 
einer Anwendung. Kommentare wie "noch in der Entwicklung!", 
"geschrieben von Vogi" oder "Version 3.4" beinhalten wichtige 
Informationen über das betreffende Programm. Auch Directory- 
Kommentare wie "In diesem Directory liegen die .bmap-Files" 
oder "Hier sind die Geschäftsbriefe abgelegt" sind nicht minder 
wirkungsvoll. 

Das folgende Programm kann ein beliebiges File oder Directory 
mit dem gewünschten Kommentar versehen. Werden diese Files 
dann später beispielsweise mit dem CLI-Befehl LIST untersucht, 
so taucht der Kommentar wieder auf. 

Das Format des Befehls ist: 


SetComment "programm-name", "kommentar" 


Beispielsweise versieht... 

SetComment "dfO:Clock M , ‘'Dies ist eine Uhr!!!" 


das File "Clock" mit einem Kommentar. 
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Programm-Größe: 1045 Bytes 

Bemerkungen: "dos.bmap" muß sich auf Disk befinden 


'SetComment 

DECLARE FUNCTION DosSetComment& LIBRARY 

LIBRARY "dos. library" 

main: 

SetComment "coifipare", "Ein absolut sinnloses Programm...!" 
'kommentiert ein Programm namens "compare" 

LIBRARY CLOSE 
END 


SUB SetComment(file$,comment$) STATIC 

'Ein Kommentar von max. 80 Zeichen kann an jedes DOS-File 
'angehaengt werden. Der Kommentar wird beispielsweise von 
'der CLI-Funktion "list" wieder ausgegeben. 

SHARED fl 'fl=l:I/O-Error 

file$=file$+CHR$(Q) 'Namen mit '0' 

comment$=comment$+CHR$(0) 'abschliessen 

suc&=DosSetComment&(SADD(file$),SADD(comment$)) 

IF suc&= 0 THEN 

PRINT "Schon wieder ein Problem. . . ! M 
PRINT "z.B. Programm gibt's nicht oder" 

PRINT "Diskette write-protected" 
fl=l 
END IF 


END SUB 
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Variablen: 


fileS: 

commentS: 

fl: 

suc&: 


Name des gewünschten Files oder Directories 

Kommentar 

I/O-Error Flag 

Fehler-Flag 


Programmbeschreibung: 

Die nötige Funktion DosSetComment wird deklariert und die 
DOS-Library geöffnet. Dem SUB-Programm werden File-Name 
(file$) und Kommentar (commentS) übergeben. Die Fehlerva¬ 
riable fl wird allgemein zugänglich gemacht (sie soll ja später 
ans Hauptprogramm zurückgeliefert werden). Die beiden Text- 
Strings werden mit einem Null-Byte versehen, und die Funktion 
DosSetComment wird aufgerufen. Im Normalfall geht alles gut, 
und der Kommentar wird ordnungsgemäß an das ahnungslose 
Programm gehängt. Geht jedoch etwas schief (das File gibt’s gar 
nicht oder es ist schreibgeschützt), dann ist suc&=0. Eine Pro¬ 
blemmeldung wird ausgegeben und das Fehlerflag fl gesetzt. 


2.7.3 CheckFile - wirklich auf Disk? 

Ist ein Datenfile nun auf Disk oder nicht? Oftmals ist diese 
Frage außerordentlich wichtig, denn nur ein existierendes File 
kann auch geöffnet werden; andernfalls kommt es zu einer Feh¬ 
lermeldung. 

Das folgende Programm kann Ihnen helfen. Der neue Befehl: 
CheckFile ,l filename ,, 

untersucht, ob es das angegebene File gibt. Aber die Routine 
kann noch mehr! Gleichzeitig wird die Nummer des Anfangs- 
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blocks auf der Diskette ausgegeben. Dadurch können Sie (mit 
einem DiskEditor beispielsweise, siehe trackdisk.device) auf das 
gewünschte Programm direkt zurückgreifen und es auf der Disk 
Block für Block untersuchen. 


Programm-Größe: 857 Bytes 

Bemerkungen: "dos.bmap" muß sich auf der Disk befinden 


'CheckFile 

DECLARE FUNCTION DosLock& LIBRARY 

LIBRARY "dos.library" 

raain: 

LINE INPUT “Gesuchtes File M ;fl$ 

CheckFile fl$ 

IF fl=l THEN 

PRINT “File existiert." 

PRINT “File Header beginnt ab Block“;blk&; “ auf Disk.“ 
ELSE 

PRINT “Das File gibt es nichtl“ 

END IF 

LIBRARY CLOSE 
END 


SUB CheckFile (file$) STATIC 

SHARED fl,blk& 'fl=0: File existiert nicht 

'fl=l: File existiert 
'blk&: # des Blockes auf Disk 


file$=file$+CHR$(0) 
accessRead%=-2 


'Namen mit '0' abschliessen 
'SHARED_ACCESS 
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lock&=DosLock&(BADD(file$),accessRead%) 

IF lock&=0 THEN 'File gibt's nicht 

fl=0 

ELSE 'File gefunden 

fl=l 

blk&=PEEKL(lock&*4+4) 

END IF 

CALL DosUnLock(lock&) 

END SUB 


Variablen: 

fl: 

blk&: 

file$: 

accessRead%: 

lock&: 


fl=0: File existiert nicht 
Block-Nummer des File-Headers auf Disk 
Name des gewünschten Files 
SHARED ACCESS (-2) 

Adresse auf File Lock des Files 


Programmbeschreibung: 

Die DOS-Funktion Lock ist eine Art Saugfuß. Mit ihrer Hilfe 
kann sich nämlich DOS an einem ganz bestimmten File oder 
Directory "festsaugen". Eine Lock-Datastruktur wird eingerich¬ 
tet, die die speziellen Parameter dieses Files (oder Directories) 
enthält. 

Das Programm verwendet nun DosLock, um zu überprüfen, ob 
ein bestimmtes File existiert. Hierzu wird der Name des Files 
(file$) mit einem Null-Byte versehen (Ende-Kennzeichen), der 
SHARED ACCESS Mode gewählt (näheres dazu gleich) und ein 
Lock für das File angefordert. Gibt es das File nicht, so kann 
natürlich auch keine Lock-Datastruktur angelegt werden, und 
lock& enthält 0. Andernfalls enthält lock& die Anfangsadresse 
der Datastruktur. Dabei handelt es sich um einen sogenannten 
BPTR, der nicht den absoluten Adressenwert enthält, sondern 
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die Longword-Adresse. Da jedes Longword jedoch genau 4 
Bytes enthält, ergibt sich der Adresspointer durch einfaches 
Multiplizieren (*4). 

Genau dies geschieht in den folgenden Anweisungen, wo die 
Blocknummer des Anfangsblocks aus der Datenstruktur gelesen 
wird. 

Schließlich muß das System-Lock wieder entfernt werden, denn 
man wollte ja nur mal gucken, ob das File auch wirklich da ist. 
Dies erledigt DosUnLock für Sie. 

Anfangs wurde erwähnt, daß das Programm den sogenannten 
SHARED ACCESS Mode verwendet. Im Grunde kann der 
Saugfuß nämlich in zwei Weisen benutzt werden: 

1. SHARED ACCESS (-2): Dieser Mode wird auch 
ACCESS READ genannt. Mit ihm erhalten Sie die 
Datenstruktur des Files, ohne es für andere Benutzer 
(andere laufende Tasks) zu blockieren. Während Sie 
also dieses File untersuchen, könnte ein anderer Task 
dasselbe File ebenfalls untersuchen. Dies geht auch 
problemlos, da Sie das File ja lediglich lesen. 

2. EXCLUSIVE WRITE (-1): Mit diesem Mode können 
Sie ein File ganz für Sie allein pachten. Solange Sie 
das System Lock nicht durch DosUnLock wieder 
freigeben, sind Sie der einzige Task, der mit dem 
File arbeiten kann. Andere Tasks werden mit der 
Meldung "FILE ALREADY OPEN" (File bereits ge¬ 
öffnet) abgespeist. Sie sollten diesen Mode allerdings 
mit Vorsicht genießen, denn schließlich würde es Sie 
ja auch stören, wenn ein anderer Task sich ein File 
"geklaut" hat, auf das Sie auch scharf waren. Dieser 
Mode hat allerdings gewisse Berechtigung, wenn Sie 
ein File beschreiben wollen, den Inhalt des Files also 
ändern. In diesem Fall wäre es nämlich hinderlich, 
wenn ein anderes Programm dasselbe Programm mit 
anderen Daten vollstopft, während Sie Ihre eigenen 
Änderungen vornehmen. Selbst wenn ein anderer 



Das AmieaBASIC 


127 


Task das File "nur" liest, während Sie Ihre 
Adresskartei in diesem File ändern, könnte es zu 
gewissen Mißverständnissen kommen...! 

Hier nun der Vollständigkeit halber die erwähnte Lock-Data- 
struktur: 


00 - 

03 

L 

BPTR(!) zum 

nächsten Lock, sonst 0 

04 - 

07 

L 

Blocknummer 

des Dir's oder Fileheaders 

08 ■ 

11 

L 

Shared (-2) 

oder Exclusive (*1) Access 

12 - 

15 

L 

APTR Process ID des Handlertasks 

16 - 

19 

L 

BPTR(!) zum 

Disk-Eintrag 


Weitere Informationen über Process ID und Diskeinträge finden 
Sie an anderer Stelle in diesem Buch. 

Anmerkung: Mit diesem Programm können Sie beispielsweise 
prüfen, ob sich die entsprechenden ".bmap"-Files auf Disk be¬ 
finden, bevor Sie Kernel-Befehlsroutinen verwenden. 


2.7.4 Daten sichern: DOS-Protection 

Vielleicht haben Sie schon einmal die grauenhafte Erfahrung 
gemacht: Freudig haben Sie ein ganz wahnsinnig tolles Pro¬ 
gramm geschrieben, und nun soll es auf Diskette abgespeichert 
werden. Am besten unter dem Namen "test". Gesagt, getan, doch 
zu spät! Zu spät ist Ihnen eingefallen, daß Sie gestern ein noch 
viel tolleres Programm unter demselben Namen abgespeichert 
hatten, und sang- und klanglos wird Ihr altes Programm vom 
neuen "überspielt". 

In der bisherigen Version von AmigaBASIC wird nämlich ohne 
Vorwarnung munter drauflos gesaved, ohne vorher nachgeprüft 
zu haben, ob es ein gleichnamiges File bereits gibt. Diesem Di¬ 
lemma kann jedoch Abhilfe geschaffen werden, denn Sie kön¬ 
nen auf recht simple Weise Programme "überschreibungssicher" 
machen. In jedem Programm-Header gibt es nämlich vier Bits, 
die die folgenden Bedeutungen haben: 
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Bit 1: DELETE 

Bit 2: EXECUTE 

Bit 3: WRITE 

Bit 4: READ 

Sie können also Ihr Programm gegen Überschreiben (DELETE), 
unbefugtes Starten (EXECUTE), Verändern (WRITE) und Lesen 
(READ) schützen! Theoretisch. In der bisherigen DOS-Version 
wird nämlich lediglich Bit 1 überprüft; sie können Programme 
also zunächst nur lösch-sicher machen. 

Wie dem auch sei, das folgende Programm beschert Ihnen den 
Protect-Befehl, mit dem Sie ein jegliches Programm mit einem 
oder mehreren der folgenden Attribute ausstatten können. Um 
Bits und Bytes brauchen Sie sich nicht zu kümmern, das 
Befehlsformat sieht so aus: 

Protect "f i lename", 11 read| write | execute|delete" 

(Die |-Taste befindet sich übrigens in der rechten oberen 
Ecke Ihrer Tastatur...) 

Sie können die vier Schutzmodi in beliebiger Reihenfolge ange¬ 
ben. Das |-Zeichen muß zwischen jedem Wort stehen. 


Programm-Größe: 1293 Bytes 

Bemerkungen: "dos.bmap" muß sich auf Disk befinden 

'Protect 

DECLARE FUNCTION DosSetProtection& LIBRARY 
LIBRARY "dos.library" 

Protect ”tt","read!write'executeJdelete” 


LIBRARY CLOSE 
END 
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SUB Protect(file$,mask$) STATIC 

subPVar: 

SHARED fl 

file$=file$+CHR$(0) 
prot$ (3) = "READ’' 
prot$(2)="WRITE" 
prot$(1)="EXECUTE” 
prot$(0)="DELETE” 

FOR loop%=l TO LEN(mask$) 
byte$=MID$(mask$,loop%,1) 

IF byte$< >CHR$(124) THEN 

p$(count%)=p$(count%)+byte$ 

ELSE 

count%= count%+1 
END IF 
NEXT loop% 

FOR loop%=3 TO 0 STEP -1 
FOR loo P 2%=0 TO 3 

IF UCASE$(p$(loop2%))=prot$(loop%) THEN 
raask%=mask%+2'' loop% 

END IF 
NEXT loop2% 

NEXT loop* 

'READ = 2**3 - 8 
'WRITE = 2"2 = 4 

'EXECUTE = 2~1 = 2 
'DELETE = 2~ 0 = 1 

suc&=DosSetProtection&(SADD(file$),roask%) 

IF suc&=0 THEN 

PRINT "Wir haben ein Problem. . . ” 'I/O-Error 
£ 1=1 
END IF 


'Variablen 

'£1=1: I/O-Error 

'Name mit '0' abschliessen 

'Leseschutz 

'Schreibschutz 

'Start-Schutz 

'Loesch-Schutz 

'Attribute selektieren 

'Zeichen^” ! "? 

'ja 


'Bit-Mask setzen 


END SUB 
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Variablenfelder: 

protS: Schutz-Modi 

p$: Wort-Speicher 

Variablen: 


fl: 

fileS: 

maskS: 

mask%. 

byteS: 

count%. 

loop%: 

loop2% 

suc&: 


Fehlerflag 

Programmname, mit O-Byte versehen 

Modi-Maske 

Bit-Maske 

Ein-Byte-Zeichen aus Maske 

Zeichenzähler 

Schleifenvariable 

noch eine Schleifenvariable 

Fehlerflag der DosProtect-Funktion 


Programmbeschreibung: 

Die Variable fl dient als Fehlerflag. fl=l steht für einen I/O- 
Fehler. Das gewünschte Programm konnte also nicht geschützt 
werden, weil es z.B. nicht existierte oder nicht im aktuellen 
Directory zu finden war. 

Der Programmname in file$ muß mit einem O-Byte versehen 
werden, und die drei Schutzmodi werden als Name definiert. 
Die hier abgespeicherten englischen Namen werden später mit 
den Namen beim Funktionsaufruf verglichen. Sind Ihnen also 
deutsche (oder andere) Bezeichnungen lieber, so können Sie hier 
die gewünschten Bezeichnungen eintragen. 

Eine Schleife geht nun mask$ Zeichen für Zeichen durch. Erst 
wenn ein |-Zeichen gefunden wird, gilt das eingelesene Wort als 
beendet. Die gefundenen Worte werden in p$(x) abgespeichert. 
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Eine zweite Schleife untersucht die gefundenen Worte. Es han¬ 
delt sich dabei praktisch um zwei ineinander verschachtelte 
Schleifen, die jedes Wort in jeder beliebigen Reihenfolge mit 
den in prot$(x) vorgegebenen Schlüsselwörtern vergleicht. Da¬ 
durch können Sie bei Funktionsaufruf die Schutz-Parameter in 
ganz beliebiger Reihenfolge angeben. Entsprechend den Funden 
werden die oben näher beschriebenen Protection-Bits gesetzt 
und in mask% abgespeichert. 

DosSetProtection versieht dann das Programm mit den Bits. Gibt 
es dabei Probleme, wird eine Warnung ausgegeben und die Feh¬ 
lervariable fl gesetzt. 

Den Schutz-Zustand eines jeden Files können Sie sich beispiels¬ 
weise mit dem CLI-Befehl "LIST" anschauen. Im Normalfall fin¬ 
den Sie dort die Bezeichnung "rwed" für read write execute 
delete. Das bedeutet, das File ist ungeschützt. Schützen Sie es 
beispielsweise gegen überschreiben, wäre das Ergebnis "rwe-", 
das File ist nicht mehr "deletable". 

PROTECT "workbench:Clock","delete" 

Im CLI-List-Ausdruck fänden Sie den Eintrag "rwe-". 

Wollen Sie einen Programmschutz wieder rückgängig machen, so 
brauchen Sie bloß das entsprechende File neu zu schützen und 
den unerwünschten Schutz wegzulassen: 

PROTECT "workbench:Clock»,"» 

ließe Clock völlig ungeschützt zurück. 


2.7.5 Rename 

Nun noch schnell ein DOS-Rename-Programm, das den Namen 
eines beliebigen Files (oder Directories) wunschgemäß verändert. 
Der Aufruf dieser Funktion geschieht durch: 


RENAME "alter Name", "neuer Name" 
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Programm-Größe: 519 Bytes 

Bemerkungen: "dos.bmap” muß sich auf Disk befinden 

'Rename 

DECLARE FUNCTION DosRename& LIBRARY 
LIBRARY “dos.library” 

Rename “hi“,"s-z" 

LIBRARY CLOSE 

End 


SUB Rename(oldName$,newName$) STATIC 

SHARED fl '£1=1: I/O-Error 

oldName$=oldName$+CHR$(0) 'jeweiligen Namen 

newName$=newNaroe$+CHR$(0) 'mit '0' abschliessen 

suc&=DosRename&(SADD(oldName$),SADD(newName$)) 


IF suc&o-l THEN 

PRINT "Wir haben ein Problem... 
fl=l 


END IF 

END SUB 


Variablen: 

fl: 

Fehlerflag 

oldNameS: 

alter Name 

newNameS: 

neuer Name 

suc&: 

Fehlerflag der DOS-Funktion 
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Programmbeschreibung: 

Sowohl der alte als auch der neue Name müssen mit einem 0- 
Byte abgeschlossen werden. Die beiden Adressen der Namen 
werden der DOS-Funktion DosRename übergeben, welche die 
Namensänderung vornimmt. Geht etwas schief, so wird eine 
Warnung ausgegeben und das Fehlerflag gesetzt. 


2.7.6 GetDir - Einblick ins Inhaltsverzeichnis 

Es kommt oft vor - ein Programm benötig dringend Einblick in 
das Disketten-Inhaltsverzeichnis einer Diskette. Der Befehl FI¬ 
LES hilft da nur bedingt, denn ohne Differenzierung gibt er die 
Namen der entsprechenden Files gleich auf den Bildschirm aus. 
Deshalb haben wir die Routine "GetDir” geschrieben, die alle 
wichtigen Daten aus dem aktuellen Directory liest und in Vari¬ 
ablenfeldern abspeichert. Was mit den Daten dann geschieht, ist 
ganz und gar Ihre Sache! 

Programm-Größe: 4101 Bytes 

Bemerkungen: "exec.bmap" und "dos.bmap" müssen sich auf Disk 
befinden 


'GetDir 


DECLARE 

DECLARE 

DECLARE 

DECLARE 

DECLARE 


FUNCTION 

FUNCTION 

FUNCTION 

FUNCTION 

FUNCTION 


DosExamine& LIBRARY 
DosExNext& LIBRARY 
DosLock& LIBRARY 
AllocMem& LIBRARY 
DosIoErr& LIBRARY 


LIBRARY "exec.library” 
LIBRARY “dos.library“ 

Arrays: 

x%=100 

DIM SHARED DirName$(x%) 
DIM SHARED DirProt$(x%) 
DIM SHARED DirType$(x%) 
DIM SHARED DirSize&(x%) 
DIM SHARED DirBlks&(x%) 
DIM SHARED DirComm$(x%) 


'Felder 

'100 Eintraege (max. ) 
'File-Name 
'Protection-Bits 
'Type: DIR oder FILE 
'FILE-Groesse in Bytes. . . 

.und Blocks auf Disk 
'Kommentar 




134 


AMIGA Tips & Tricks 


main: 

GetDir "dfO: ", x% 
GOSUB PrintDirectory 

LIBRARY CLOSE 
END 


PrintDirectory: 

FOR loop%=0 TO counter% 

PRINT "Nr, ";loop%+1 
PRINT DirNameS(loop%) 

PRINT "Protection: ";DirProt$(loop%) 

PRINT "Type: ";DirTypeS(loop%) 

PRINT "Size: ";DirSize&(loop%) 

PRINT "Bioecke: ";DirBlksÄ(loop%) 

PRINT "Kommentar: ";DirCoramS(loop%) 

PRINT STRINGS(50,"-") 

PRINT STRINGS(50,) 

SLEEP:SLEEP 

NEXT loop% 

RETURN 


SUB GetDir(dir$,max%) STATIC 


SubGDVar: 

SHARED counter%,fl 
sem DIR 


AccessRead%=-2 
dir$=dir$+CHR$(0) 
bytes&=252 

PRINT "* searching" 
PRINT 


'Variablen 

'counter%: # der Eintraege in die 

'f1=1: Directory existiert nicht 
'f1=2: Kein freier Speicherplatz 
'f1=3: I/O Error 
'allgemeiner Zugriff (SHARED) 
'DIR-Name mit '0' abschliessen 
'Buffer-Groesse 


GetDir: 

lock&=DosLock&(SADD(dirS) ,:AccessRead%) 
IF lock&=0 THEN 

PRINT "Directory existiert nicht." 
fl=l 
END IF 
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AllocateMemory: 

opt&=2~1+2"16 'MEMF_CLEAR!MEMF^CHIP 

info&=AllocMem&(bytes&,opt&) 

IF info&=0 THEN 'Out of Memory 

PRINT “Kein Speicherplatz frei!" 
f 1=2 

GOTO ende 
END IF 

StartExamination: 
suc&=DosExamine&(lock&,info&) 

IF suc&= 0 THEN 'I/O-Error 

PRINT "Directory konnte nicht untersucht werden." 
f 1=3 

GOTO finish 
END IF 

again: 

DirName&=info&+8 
in info& 

FOR search=0 TO 29 

check=PEEK(DirNarae&+search) 

IF checke>0 THEN 

check$=eheck$+CHR$(check) 

ELSE 

search=29 
assen 
END IF 
NEXT search 

DirNarne$ (counter%) =check$: check$= "" 'Name in Feld ablegen 
prot&=PEEKL(info&+116) 'Protection-Bits untersu 

chen 

IF prot&<>0 THEN 'welche da? 

IF (prot& AND 2 " 3) < > 0 THEN prot$=prot$+"read-," 

IF (prot& AND 2"2)<>0 THEN prot$=prot$+"write-," 

IF (prot& AND 2"1)<>0 THEN prot$=prot$+"execute-," 

IF (prot& AND 2"0)<>0 THEN prot$=prot$+"delete-," 

DirProt$(counter%) = LEFT$(prot$,LEN(prot$)- 1) + "protected." 
prot$="" 

END IF 


'Adresse des DIR-Namens 


'schon Ende (=0) ? 

'nein 

'ja 

'Schleife vorzeitig verl 


type&=PEEKL(info&+120) 


'Eintags-Type untersuch 
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en 

IF type&< 0 THEN 

DirType$(counter%)="FILE“ 
ELSEIF counter%=0 THEN 

DirType$(counter%)=“CURR.DIR" 
ELSE 

DirType$(counter%)="DIR” 

END IF 

DirSize&(counter%) 

DirBlks&(counter%) 

FOR search=0 TO 79 

check=PEEK(info&+144+search) 
IF checke>0 THEN 

check$=check$+CHR$(check) 
ELSE 

search=79 
END IF 
NEXT search 


suc&=DosExNext&(lock&,info&) 

IF suc&=0 THEN 
e&=BosIoErr& 

IF e&< >232 THEN 
E_ENTRIES 

PRINT “Fehler im Directory. 
DirError&=e& 

END IF 
GOTO finish 
ELSE 

counter%=counter%+1 
IF counter%<=max% THEN 
GOTO again 
END IF 
END IF 


'FILE' 

'unser DIR 

'DIR 

'FILE Byte-Groesse 
'FILE Blocks on Disk 

'Kommentar suchen 


'Kommentar speichern 

'ein weiterer Eintrag? 
'nein 

'232=legal error NO_MOR 
I/O-Error Nr. ";e& 

'ja 

'naechster Eintrag 


=PEEKL(info&+124) 
=PEEKL(info&+128) 


DirCommS(counter%)=check$: check$=”“ 


finish: 
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CALL FreeMem(info&,bytes&) 
CALL DosünLock(lock&) 

ende: 

END SUB 
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Variablen-Felder: 

DirNameS: 

Name des Eintrages 

DirProtS: 

Protection-Status 

DirTypeS: 

Typ: DIR oder FILE 

DirSize&: 

Programmgröße in Bytes 

DirBlksd: 

Programmgröße in Blocks 

DirCommS: 

Kommentar pro Eintrag 

Variablen: 

x%: 

Max. Einträge 

max%: 

SUB-Var = x% 

loop%: 

Schleifenvariable 

counter%: 

Nummer der Einträge im Directory 

fl: 

Error-Flag 

AccessRead%: 

—2 

dir$: 

Name des Directories 

bytes&: 

Buffer-Größe 

lock&: 

System-Lock für Directory 

opt&: 

Speicher-Options 

info&: 

Anfangsadresse Info-Block 

suc&: 

DOS-Funktion Error-Flag 

DirName&: 

Adresse des DIR-Namens 

search: 

Schleifenvariable 

check: 

ASCII-Zwischenspeicher 

checkS: 

Prüfzeichenkette 

prot&: 

Protection-Bits 

protS: 

Protection-Attribute 

type&: 

Typ-Bits 


Programmbeschreibung: 

Aus dem Directory-Infoblock sollen Name, Schutzstatus, Typ, 
Größe und Kommentar eines jeden Eintrages gelesen werden. 
Hierfür werden Variablenfelder angelegt. Die maximale Anzahl 
hängt von x% ab. Das Hauptprogramm main: liest das Hauptdi¬ 
rectory des ersten Laufwerks aus (Beispiel). 
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GetDir: 

Die Variablen counter% und fl werden dem Hauptprogramm 
zugänglich gemacht, denn sowohl I/O-Fehler als auch Anzahl 
der gefundenen Elemente muß an dieses übergeben werden. Das 
Directory mit dem gewünschten Namen wird durch DosLock 
angepeilt. Falls es existiert (fl=0), wird ein bytes&-großer (260 
Bytes) Buffer im Speicher angelegt. DosExamine untersucht den 
ersten Directory-Eintrag. Die benötigten Informationen werden 
in agin: direkt aus dem Infoblock ausgelesen. 

DosExNext untersucht alle weiteren Einträge. Trifft diese Funk¬ 
tion auf ein NO MORE ENTRIES-Error, wird die SUB-Routine 
nach Zurückgabe des Buffers und Entfernen des Saugfußes ver¬ 
lassen. 

Der Infoblock in info& hat folgendes Format: 


00-03 L Disk-Schlüssel 

04-07 L Art des BufferinhaltesCgrößer als 0: Dir) 
08 - 115 Name des Eintrages 

Bis jetzt sind lediglich 30 der 
118 Bytes nutzbar. 

116 - 119 L Schutz-Bits 

Bit Bedeutung 
0 Delete 

1 Execute 

2 Write 

3 Read 

120 - 123 L Art des Eintrages (größer als 0=Dir) 

124 - 127 L Bytes in File 

128 - 131 t Blöcke in File 

132 - 135 L Tage seit 1. Jan 1978 

136 - 139 L Minuten seit Mitternacht 

140-143 L Ticks seit letzter Minute 

144 - 259 Kommentar, bisher nur 80 Bytes nutzbar 
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Bemerkungen: 


Wollen Sie mehr als 100 Einträge pro Directory untersuchen, so 
brauchen Sie lediglich x% am Anfang des Programms zu verän¬ 
dern. Nach Aufruf der Routine GetDir werden die gefundenen 
Einträge in den Variablenfeldern zu finden sein (wenn fl=0). 
counter% enthält die Anzahl der gefundenen Einträge. Falls 
counter%=x%= 100 sein sollte, dann liegt der Verdacht nahe, daß 
sich mehr als die 100 abgelegten Einträge im Directory befin¬ 
den; vergrößern Sie dann das Variablenfeld - oder tun Sie es 
von vornherein, wenn Sie über genügend Speicherplatz verfügen 
(x%=300 wird wohl allen Ansprüchen gerecht werden). 

fl=l: Das angegebene Directory existiert nicht (Sie müssen 

den Namen immer vom Hauptdirectory her angeben, 
z.B. Workbench:fonts/sapphire für das Directory 
"sapphire". 

fl=2: Es konnte kein Info-Block angelegt werden, weil kein 

freies RAM mehr auffindbar war. 

fl=3: I/O-Error 

Das folgende Programm "GetTree" zeigt eine Anwendung der 
GetDir-Routine. 


2.7.7 GetTree - den Datenbaum untersuchen 

Bekanntlich können AmigaDOS-Disketten mit verschiedenen 
Unter-Directories versehen werden. Das Hauptdirectory "Work- 
bench:" enthält beispielsweise das Unterdirectory "fonts", in dem 
die System-Fonts gespeichert sind. Dort gibt es wiederum ein 
Directory namens "Sapphire", welches die verschiedenen 
Sapphire-Fonts beherbergt. So könnte sich der "Baum" (von 
einem solchen spricht man nämlich; er ähnelt einer Ahnengale¬ 
rie) beliebig weiter nach unten verästeln (Schleifen von einem 
"tieferen" zu einem "höheren" Directory wie in UNIX sind mit 
AmigaDOS nicht möglich). 
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Diese Fülle an Directories (Inhaltsverzeichnissen) erhöht die 
Übersichtlichkeit eines Disketten-Inhaltsverzeichnisses ganz 
enorm. Aber haben Sie sich schon einmal ein solches Inhalts¬ 
verzeichnis (z.B. durch FILES) angeschaut? Die Files des aktu¬ 
ellen Directories werden auf den Bildschirm ausgegeben, Unter- 
directories werden jedoch nur genannt, nicht ausgegeben: 

(...) 

F reddy 
Freddy.info 
AmigaBASIC 
AmigaBASIC.info 
(Unterdirectory) 

Hans 


(...) 


Das folgende Programm untersucht alle Files einer Diskette, 
ohne Rücksicht auf Directories. Die gesamte Baumstrukur wird 
dabei abgeklappert. Zunächst werden die Files des Hauptdirec- 
tories ausgegeben, danach sämtliche darin vorkommende Unter- 
directories, danach sämtliche in diesen vorkommende Unter- 
Directories, und so fort. 

Der Übersicht wegen wird außerdem jeweils der Name des 
gerade ausgegebenen Directories mitgeliefert. Außerdem wird 
Programmgröße in Bytes und Blocks sowie Eintragstyp (FILE 
oder DIRECTORY) ausgegeben. Die Einträge werden der Über¬ 
sicht wegen in alphabetischer Reihenfolge geordnet. 

Das folgende Programm ist für die Ausgabe der Liste auf einen 
Drucker geschrieben worden, denn eine Bildschirm-Ausgabe ist 
nur wenig übersichtlich. Durch leichte Änderungen (LPRINTs in 
PRINTs verwandeln) können Sie natürlich auch ohne Drucker 
auskommen. 
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Programm-Größe: 9059 Bytes 

Bemerkungen: "exec.bmap" und "dos.bmap" müssen sich auf Disk 
befinden 


'GetTree 


'* * 

'* (C) 1986 by DATA BECKER GmbH W.-Ger. * 

'* (P) by Tobias "Kutte” Weltner * 

'* * 


'* GetTree verwendet das CLI, um die Baum- * 
'* Struktur einer beliebigen Diskette zu * 
'* untersuchen. Das Ergebnis wird wahlwei- * 
'* se auf Drucker oder Bildschirm ausgege- * 
'* ben. * 

* 

' ******************************************** 


DECLARE 

DECLARE 

DECLARE 

riff 

DECLARE 

DECLARE 


FUNCTION DosExamine& LIBRARY 
FUNCTION DosExNext& LIBRARY 
FUNCTION DosLock& LIBRARY 

FUNCTION AllocMem& LIBRARY 
FUNCTION DosIoErr& LIBRARY 


'Directory finden 
'Files suchen 
'Directory/File Zug 

'Memory besorgen 
'Fehler ausgeben 


LIBRARY "exec.library" 
e 

LIBRARY "dos.library" 


'da kommen all dies 
'Funktionen her 


'Felder 

'max. 200 Files pro 
'max. 100 Directori 

es pro Disk 

DIM SHARED DirName$(x%) 

DIM SHARED DirProt$(x%) 

DIM SHARED DirType$(x%) 

DIM SHARED DirSize&(x%) 

DIM SHARED DirBlks&(x%) 


arrays: 
x%-200 

Directory 
y %-100 
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DIM a$(y%) 
BIM a&(y%) 


var: 

'Variablen 


filler$=". M 

'Fuell-$ fuer 

Ausdr 

uck 



count%=1 



f 

'Euell-$ fuer 

Scree 


n 


main: '======== = : 

GOSUB Request 
GOSÜB Header 
GOSUB Level 
GOSUB printTree 
GOSUB printEnd 

LIBRARY CLOSE 
END 


Request: '- 

LINE INPUT *'Welches Disk-Drive (0-3) ?-> " ; Dr$ 

Dr%=VAL(RIGHTS(Dr$,1)) 

Dr$=RIGHT$(STR$(Dr%),1) 
a$(0)= M df"+Dr$+": " 

RETURN 


Header: 


LPRINT "* BAUMSTRUKTUR DECODER *" 
LPRINT 

LPRINT *■ (C) 1986 by DATA BECKER GmbH/AMIGA Tips&Tricks M 

LPRINT 

LPRINT 
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RETURN 


Level: 


LPRINT STRINGS(70, M _") 
LPRINT 

LPRINT "Level : ";Level% 
RETURN 


printEnd: '- 

LPRINT STRINGS (70, ) 

LPRINT 

LPRINT "b y BAUMSTRUKTUR DECODER, (C) 1986 DATA BECKER GmbH" 
LPRINT STRINGS(7 0,) 

LOCATE 1,1 

PRINT “Programm beendet.STRINGS(60,fil$) 

RETURN 


printTree: ' 


FOR loop%=previous% TO count%-l 

IF a&(loop%)=Level% THEN 'Eintrag fuer diesen Level 

search$=a$(loop%) 'das gewuenschte Directory 

GetDir search$,x% 'finden und laden 

Sort 

LOCATE 1 1 

PRINT "Printing a$(loop%);STRINGS(60,fil$) 

IF loop%=0 THEN 

a$(loop%) = DirName$(0) + ": “ 

END IF 






Das AmieaBASIC 


145 


directory$=LEFT$(a$(loop%),LEN(a$(loop%))-1) 
LPRINT 

LPRINT “Directory:-> ; directory$ 

FOR show%=l TO counter% 
info$=DirNaroe$(show%) 

FOR fill%=LEN(DirNameS(show%)) TO 32 
info$=info$+filler$ 

NEXT fill% 

IF DirType$(show%)< >“DIR “ THEN 

info$=info$+DirType$(show%) 
info$=info$+“ . “+DirProt$(show%) 

FOR fill%=LEN(DirProt$(show%)) TO 3 
info$=info$+filler$ 

NEXT fill% 

LPRINT “- “;info$; 

LPRINT USING “#######“;DirSize&(show%); 
LPRINT " Bytes, 

LPRINT US ING “###“;DirBlks&(show%); 
LPRINT “ Blocks.“ 

ELSE 
f 1=1 

LPRINT M - “+info$+“DIRECTORY“ 
a$(count%)=a$(loop%)+DirName$(show%)+“/“ 
irectories 

a&(count%)=Level%+1 
1 merken 

count%=count%+1 
END IF 
NEXT show% 

Eintrag in 

Directory 
END IF 
NEXT loop% 
irectory in 


'Name des D 
'sowie Leve 

'naechster 
'in diesem 

'naechst. D 


'in diese 
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in Level 

previous%=loop% 'Listen-Zei 

ger 

IF fl=l THEN 
Directory im 
£1=0 
evel 

Level%=Level%+1 
ster Level 
GOSUB Level 
GOTO printTree 
los 
END IF 

RETURN 


SUB GetDir (dir$, max%) STATIC 

subGTVar: 

'Variablen 

SHARED counter%,DirError&,fil$,f1 
ne Eintraege 

ectory existiert nicht 

n freier Speicherplatz 

-Error 

'# gefunde 

'£1=1: Dir 

'£1=2: Kei 

'f1=3: I/O 

counter%=0 

uptprograrara 

LOCATE 1,1 

PRINT "Getting Directory °;dir$;STRINGS(60,fil$) 

'fuer's Ha 

dir$=dir$+CHR$(0) 

lock&=DosLock&(SADD(dir$),-2) 
anpeilen 

'Directory 


'Mind. ein 
'naechst. L 
'also naech 

'und wieder 
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ACCESS 

IF lock&= 0 THEN 
cht da. . . ! 

PRINT “ERROR: Directory existiert nicht.“ 
fl=l 

GOTO ende 
END IF 

opt&=2"1+2" 16 
!MEMF_CHIP 

info&=AllocMem&(252,opt&) 
festlegen 

IF info&= 0 THEN 
eher alle... 

PRINT “Kein Speicherplatz frei!“ 
f 1=2 

GOTO ende 
END IF 

suc&=DosExarnine&(lock&, info&) 

Eintrag 
IF suc&=0 THEN 

PRINT “ERROR: Directory nicht lesbar." 
f 1=3 

GOTO finish 
END IF 

again: 
chleife 

DirName&=info&+8 
esse String 

FOR search=0 TO 29 
aus info- 

check=PEEK(DirName&+search) 
en (< 31) 


'-2=SHARED_ 
"ist gar ni 

'MEMF_CLEAR 
"info-Block 

'Mist, Spei 

'Dir. 's 1. 
'Probleme. . 

' Auslese-S 

'Basis-Adr 

'Feld: Name 
'Block les 
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IF checke>0 THEN 
her fertig? 

check$=check$+CHR$(check) 
h Zeichen 
ELSE 

sparen. . . 

search=29 
fe beenden 
END IF 
NEXT search 

DirNarae$(counter%)=check$:check$="" 
loeschen 

prot&=PEEKL(info&+116) 
n-Bits 

IF prot&<>0 THEN 
ind da: 

IF (prot& AND 2'*3)<>0 THEN prot$=prot$+”r" 
otected 

IF (prot& AND 2~2)<>0 THEN prot$~prot$+ ,, w , ‘ 
rotected 

IF (prot& AND 2'*1)<>0 THEN protS-protS+^e” 
-Protected 

IF (prot& AND 2'"0)<>0 THEN prot$=prot$+”d” 
Protected 

DirPrc>t$ (counter%) =prot$ 
prot$= ” ” 

END IF 

type&=PEEKL(info&+120) 

-Typ 

IF type&< 0 THEN 
-FILE 

DirType$(counter%)="FILE” 

ELSEIF counter%=0 THEN 
s Directory 

DirType$(counter%)="CURR.DIR” 

ELSE 

y naechster Level 


'schon vor 
'nein, noc 
'ja, Zeit 
'...Schlei 


'Lese-Var. 

' Protectio 

'jawoll, s 
'READ-Pr 
'WRITE-P 
'EXECUTE 
'DELETE- 


' Eintrags 
'Programm 

'aktuelle 


'Director 
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DirType$(counter%)="DIR 
END IF 

DirSize&(counter%)=PEEKL(info&+124) 

-Bytes 

DirBlks&(counter%)=PEEKL(info&+128) 

-Blocks 

suc&=DosExNext&(lock&,info&) 
r Eintrag 

IF suc&=0 THEN 
.(na?) 

e&=DosIoErr& 
auslesen 
IF e&< >232 THEN 
WIRKLICH 

PRINT “Fehler im Directory. I/O-Error Nr. ";e& 
er i 

DirError&=e& 

END IF 
GOTO finish 
ELSE 
ler 

counter%=counter%+1 
r Eintrag 

IF counter%<= raax% THEN 
eicher? 

GOTO again 
END IF 
END IF 


finish: 

CALL FreeMem(info&,252) 
reigeben 

CALL DosUnLock(lock&) 
y befreien 


'Programm 

'Programm 

'naechste 

'Fehler. . 
'Meldung 
'Oh Gott, 
'ein Fehl 

'beenden 
'kein Feh 

'naechste 

'genug Sp 

'ja 

'nein 

'Memory f 
'Director 


END BUB 




150 


AMIGA Tips & Tricks 


SÖB Sort STATIC 'Director 

y sortieren 

SHARED counter%,fil$ 

LOCATE 1,1 

PRINT "Sorting M ;DirNameS(0);STRINGS(60,fil$) 

FOR sort1=1 TO counter% 'Bubble-So 

rt 

FOR sort2=sortl+1 TO counter%-l 

IF UCASE$(DirNameS(sortl))>UCASE$(DirNameS(sort2)) THEN 
SWAP DirNameS(sort1), DirNameS(sort2) 

SWAP DirProtS(sortl), DirProtS(sort2) 

SWAP DirTypeS(sortl), DirTypeS(sort2) 

SWAP DirSize&(sortl), DirSize&(sort2) 

SWAP DirBlks&(sortl), DirBlks&(sort2) 

END IF 
NEXT sort2 
NEXT sortl 

LOCATE 1, 1 

PRINT "READY.STRINGS (70 , fil$) 

END SUB 


Variablen-Felder: 


DirNameS: Name des Eintrages 

DirProtS: Schutzstatus des Eintrags 

DirTypeS: Typ des Eintrages 
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DirSiye&: 
DirBlks&s 
a$: 
a&: 


Größe in Bytes, falls Programm 
s.o., jedoch in Blocks a 512 Bytes 
vollständiger Directory-Name 
entsprechender Directory-Level 


Variablen: 


x%: 

y%: 

fillerS: 

filS: 

count%: 

Dr$: 

Dr%: 
loop%: 
previous%: 
Level%: 
searchS: 
directoryS: 
show%: 
count er%: 
infoS: 

fl: 

DirError%: 

dir$: 

lock&: 

opt&: 

infod: 

suc&: 

check: 

checkS: 

search: 

protd: 

type&: 

e&: 

sortl: 

sort2: 

max%: 


Maximal x% Einträge pro Directory 

Maximal y% Directories pro Disk 

Füll-Zeichen 

zweites Füllzeichen 

Directory-Zähler 

Disk Drive 

Nummer des Disk Drives 

Schleifenvariable 

vorheriger Schleifenwert 

Directory-Level 

aktuelles Directory 

Name des Directories 

Anzeige-Schleifenvariable 

Anzahl Einträge pro aktuelles Directory 

Informationsangabe pro Eintrag 

Flag 

I/O-Error Nummer 

Name des gesuchten Directories (SUB) 

System-Lock des Directories 

Speicher-Optionen 

Adresse des Info-Blocks 

Fehlerflag der DOS-Funktion 

Zeichenspeicher 

entsprechendes Zeichen 

Suchschleif en-Variable 

Protection-Bits 

Typ-Bits 

I/O-Error 

Sortierschleife 1 

Sortierschleife 2 

SUB 1, =x% 
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Programmbeschreibung: 

Im ersten Teil werden alle nötigen Exec- und DOS-Funktionen 
deklariert. Die Variablenfelder werden initialisiert. Das Haupt¬ 
programm besteht aus fünf Einzelprogrammen: 

Request: 

Das gewünschte Disk Drive wird erfragt (0-3). Der aktuelle Wert 
wird in Dr% als Zahl abgelegt. Das erste Directory wird in a$(0) 
als dfx: (x=0~3) definiert. 

Header: 

Ein netter Briefkopf wird gedruckt 
Level: 

Unter eine durchgezogene Linie wird der augenblickliche 
Directory-Level gedruckt. 

printTree: 

In der Schleife loop% werden alle neuen Einträge in a$(x) 
untersucht. Dies ist anfangs lediglich dfx:. Die SUB-Funktion 
GetDir liest das entsprechende Directory ein und initialisiert die 
entsprechenden DirXXX()-Felder. Diese werden anschließend 
durch Sort in die richtige Reihenfolge gebracht. Falls loop% - 0 
ist (allererster Eintrag), dann wird der gefundene Directory- 
Name ausgegeben (schließlich soll der Name der Disk ausge¬ 
druckt werden, nicht dfx:). a$(loop%) enthält den Namen des 
aktuellen Directories, jedoch mit einem O-Byte am Ende. Dies 
wird abgezwackt und der Name ausgegeben. Die show%-Schleife 
gibt nun alle durch GetTree erhaltenen und Sort sortierten Ein¬ 
träge des aktuellen Directories aus. Anschließend wird previous°/o 
auf das Ende des bisherigen Datenblocks in a$() gesetzt, damit 
es beim nächsten Durchlauf bereits auf "frische" Daten zeigt. 
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Falls fl = 1 ist, sich also im nächsten Level noch mindestens ein 
Directory versteckt, wird das nächste Directory ausgegeben. 

printEnd: 

Eine nette Abschiedsmeldung wird gedruckt. 

SUB 1: GetDir 

Dieses SUB verlangt den Namen des Directories sowie die 
maximale Anzahl der Einträge. Diese hängt lediglich von x%, 
also der Größe der DirXXX()-Felder ab. 

SUB 2: Sort 

Nach dem Bubble-Sort-Verfahren werden die Directory-Ein¬ 
träge in die richtige (alphabetische) Reihenfolge gebracht. 


2.7.8 ReadFile - Zuverlässiger als AmigaBASIC 

Haben Sie sich schon einmal ein Datenfile angeschaut? Vielleicht 
so: 


OPEN "datenfile" FOR INPUT AS 1 
WHILE E0F(1)=0 
INPUT#1,in$ 

PRINT int 
UEND 
CLOSE 1 

Das klappt auch ganz prima. Solange jedenfalls, bis Nullen ins 
Spiel kommen. Besteht Ihr Datensatz nämlich beispielsweise aus 
den Zahlen 

0,250,34,0,0,45,0,67 

so würde obiger Ausleseversuch glatt fehlschlagen. Das Ergebnis 
wäre: 
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250,34,45,67 

Nullen sind weg. Warum? Tja, ... 

Nun könnte man über dieses Manko großzügig hinwegsehen, 
denn wann braucht man schon mal Nullen?! Um jedoch echte 
Datenfiles (kein Text) auslesen zu können, bedarf man einer 
zuverlässigen Ausleseroutine, die die Nullen in Frieden läßt. Sie 
heißt "ReadFile" und wird so auf gerufen: 

ReadFile "fiiename", “wieviel", "ab wo" 

filename: Der Name des Datenfiles natürlich 

wieviel: Anzahl der Bytes, die Sie auslesen wollen 

ab wo: Offset vom Datenanfang 


Programm-Größe: 1420 Bytes 
Bemerkungen: "dos.library" 


'ReadFile 

DECLARE FUNCTION DosOpenfc LIBRARY 
DECLARE FUNCTION DosRead& LIBRARY 
DECLARE FUNCTION DosSeek& LIBRARY 

LIBRARY *'dos. library" 

raain: 

ReadFile M t. 3“,1200&, 0& 

' i * 

i i 

wieviel Zeichen ab wo? 


'eine moegliche, wenngleich sinnlose Anwendung: 

lx=LEN(code$) 

FOR length=l TO lx 
cx=cx+l 

char$=MID$(code$,length,1) 

IF char$=CHR$(10) THEN cx=0 
PRINT char$; 

IF cx>60 THEN cx^O:PRINT 
NEXT length 

LIBRARY CLOSE 
END 
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BUB ReadFile(file$,bytes&,position&) STATIC 


subRFVar: 

SHARED code$,gelesen&,f1 
s 

Mode01dFile%=1005 
offsetBeginning%=-1 


'Variablen 

'code$: Inhalt des Files 
'gelesen^: wirklich gelesene Byte 

'fl: l=File nicht gefunden 
'File existiert bereits 
'Position relativ ab File-Start 


code$=SPACE$(bytes&+10) 'code$ erhaelt notwenige Laenge 
file$=file$+CHR$(0) 'file$ wird mit '0' abgeschlossen 


OpenFile: 

'Das gewuenschte File wird geoeffnet 

handle&=DosOpen&(SADD(file$),Mode01dFile%) 
IF handlet0 THEN 

PRINT "File gibt es nicht" 
f 1=1 

EXIT SUB 
END IF 
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SetPosition: 

oldPos&=DosSeek&(handlet,position&,offsetBegirming%) 
Readlt: 

gelesen&=DosRead&(handle&,SADD(code$),bytes&) 
'handle: DOS-File Handle fuer geoeffnetes File 
'SADD(code$): Anfangsadresse des Buffers (code$) 
'bytes&: Laenge des Buffers 

CloseFile: 

CALL DosClose(handlet) 


END SUB 


Variablen: 


file$: 

bytes&: 

positiond: 

codeS: 

gelesend: 

fl: 

ModeOldFile%: 

handled: 

oldPosd: 


Name des Files 

Anzahl der gewünschten Zeichen 

Zeichenoffset vom Datenanfang 

ausgelesener Datenstring 

Anzahl der tatsächlich gelesenen Daten 

Fehlerflag 

= 1005 offsetBeginning: =-l 
Filehandle des Datenfiles 
alter Offset 


Programmbeschreibung: 

Diese Unterroutine benötigt gleich drei DOS-Routinen: 

DosOpen öffnet das gewünschte Datenfile und entspricht dem 
AmigaBASIC-Befehl OPEN. Während OPEN eine einfache 
Bezugszahl verlangt (z.B. OPEN "test" FOR OUTPUT AS 1; 
Bezugszahl ist also 1), liefert DosOpen eine sogenannte File- 
Handle zurück: 


handle&=Dos0pen&(SADD(fit e$>,mode%) 
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Inputs: 

file$: Name des Files; mit CHR$(0) abzuschließen. 

. mode%: MODE OLDFILE (=1005) öffnet bestehendes File 

MODE NEWFILE (=1006) kreiert neues File 

Outputs: 

har>dle& : BPTR(!) zu Handle-Datastruktur 

Während man also in AmigaBASIC das obige File durch CLOSE 
1 schließt, geschieht dasselbe in AmigaDOS durch CALL 
DosClose(fileHandle). 

DosRead liest einen beliebig langen Datensatz aus einem zuvor 
geöffneten File. Das Format sieht so aus: 

gel&=DosRead&(handle&, buffer&, bytesS) 

Inputs: 

handle&: Die Filehandle des Files, von DosOpen geliefert 

buffer&: Anfangsadresse eines Speichers für die Daten. 

bytes&: Die Größe dieses Buffers 

Outputs: 

\ 

gel&: Anzahl der Bytes, die tatsächlich gelesen wurden 

DosSeek verschiebt den internen "Zeiger" in einem Datenfile. 
Wenn Sie ein neues File kreieren, dann ist dieser Zeiger auf den 
Datenanfang gerichtet. Ergänzen Sie ein File, z.B. mit APPEND, 
dann zeigt er auf das Ende des alten Datensatzes. DosSeek kann 
diesen Zeiger in beliebigen Byte-Offsets im File hin- und her¬ 
verschieben. Das Format des Befehls ist: 


oldPos&=DosSeek&(handle&,pos&,mode%) 
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Inputs: 

handle&: Filehandle des Files, siehe DosOpen 

pos&: Der gewünschte Offset in Bytes 

mode%: OFFSET BEGINNING (=-l) Offset ab Datastart 

OFFSET CURRENT (=0) Offset ab aktueller Position 
OFFSET END (=1) Offset rückwärts vom Datenende 

Outputs: 

oldPos&: Die aktuelle Position 

Anmerkung: Um die aktuelle "Zeiger"-Position zu erfahren, 
benutzen Sie einfach Mode OFFSET CURRENT mit einem 
Offset von 0. 

Die Variablen code$, gelesen& und fl werden mit dem Haupt¬ 
programm geteilt, an das sie ja letztendlich überliefert werden. 
Die oben näher beschriebenen Konstanten werden deklariert. Als 
Datenbuffer fungiert code$. Dazu muß die Stringvariable aber 
erst mit entsprechend vielen Leerzeichen vollgepumpt werden, 
an deren Stelle später die Datenbytes kommen. Das File wird 
geöffnet. Falls es dabei Probleme gibt (handle&=0), wird das 
Fehlerflag fl gesetzt. Die in position& gespeicherte Position des 
"Datenzeigers" wird durch DosSeek an die richtige Stelle 
gebracht. Anschließend wird das File mittels DosRead ausgele¬ 
sen, das File geschlossen und SUB verlassen. 

Anmerkung: Die Daten werden von ReadFile in code$ an das 
Hauptprogramm übergeben. Sie sind also als ASCII-Codes 
abgespeichert. Mit Hilfe der Funktion ASC dürfte die 
Umwandlung in Daten jedoch kein Problem sein: 

FOR loop%=1 TO LEN(code$) 
check$=MID$(code$,loop%,1) 

PRINT ASC(check$) 

NEXT loop% 

Die Variable gelesen& gibt darüber Aufschluß, wieviel Bytes 
tatsächlich gelesen worden sind. Versuchen Sie beispielsweise, 




Das AmieaBASJC 


159 


aus einem 50 Bytes langen Datensatz 1000 Bytes herauszulesen, 
dann werden Sie trotzdem nicht mehr als 50 Bytes bekommen. 
gelesen& enthält dann den Wert 50. Ist gelesen& also kleiner als 
bytes&, dann haben Sie das Ende des Datensatzes erreicht. 


2.8 I/O - Kommunikation mit der Außenwelt 

Ein Ziel bei der Entwicklung des Amigas war die Schaffung 
einer geräte-unabhängigen I/O (Eingabe/Ausgabe; Kommunika¬ 
tion des Amigas mit Peripheriegeräten wie Drucker und Disk 
Drive). Dies erscheint jedoch schon auf den ersten Blick als 
unmöglich, sogar für einen Amiga: Wie kann man ein Disk 
Drive genau wie einen Joystick behandeln? Es geht einfach 
nicht. 

Deshalb wurde eine I/O geschaffen, die ein Spektrum verschie¬ 
denster Geräte auf möglichst ähnliche Weise versorgt. Dazu 
wurden Standardstrukturen geschaffen, die für alle I/O gelten, 
I/O-Befehle, die für die meiste I/O anwendbar sind, sowie ein 
Mechanismus, mit dem gerätetypische Merkmale und Informa¬ 
tionen in einem möglichst kompatiblen Verfahren eingeschlossen 
werden können. 

Alle Software-Module, die I/O möglich machen, werden "devi- 
ces" genannt. Es gibt beispielsweise das timer-, trackdisk-, 
gameport-, keyboard-, console- und audio-device, die sich alle 
im schreibgeschützten Kickstart-Speicher befinden, sowie nar- 
rator-, serial-, parallel-, printer- und clipboard-devices, die bei 
Bedarf nachgeladen werden (von der Workbench Disk). 

Um I/O zu betreiben, ist es nötig, einen sogenannten I/O- 
Request Block zu initialisieren, denn schließlich muß Amiga 
wissen, was Sie wollen. Dieser Block sieht folgendermaßen aus: 

IOStdReq: (I/O Standard Request Block) 


00-03 L Node * ln Succ 

04-07 L Node * ln Pred 

08 B Type 
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09 B Priorität 

10-13 L * ln Name 


14-17 L MsgPort * mn ReplyPort 
18-19 W mn Length 


20 - 

23 

L 

Device *io Device 

24 - 

27 

L 

Unit *io Unit 

28 - 

29 

W 

io Command 

30 


B 

Flags 

31 


B 

Error 

32 - 

35 

L 

Actual 

36 - 

39 

L 

Length 

40 - 

43 

L 

Data 

44 - 

47 

L 

Offset 


Der erste Teil besteht aus einer einfachen Node. Was das ist, 
erklären wir gleich. Zusammen mit dem zweiten Teil bildet sie 
die C-Struktur io Message. Neben dieser Struktur muß ein soge¬ 
nannter Message Port eingerichtet werden (seine Anfangsadresse 
gehört ins Feld "MsgPort * mn ReplyPort"). Der Message Port 
baut sich so auf: 


MsgPort: 


00-03 L 
04-07 L 
08 B 

09 B 

10-13 L 


Node * ln Succ 
Node * ln Pred 
Type 

Priorität 
* ln Name 


14 B mp Flags 

15 B mp SigBit 

16-19 L Task * mp SigTask 


20-23 L Node * Ih Head 
24-27 L Node * Ih Tail 
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28-31 L Node * Ih TailPred 

32 B Ih Type 

33 B Ih Pad (nutzlos) 


Der erste Teil ist wieder eine Node-Struktur. Der mittlere Teil 
bildet das Herz des Message Ports, und der letzte Teil ist eine 
List-Struktur. 

Der Sinn und Zweck einer I/O-Struktur ist ja noch einzusehen, 
denn dort kann man angeben, was wie gemacht werden soll. 
Aber wofür braucht man einen Message Port, ganz zu schweigen 
von den blöden Nodes? 

Der Amiga ist ein Multi-Tasking Computer. Es können also 
scheinbar mehrere Programme gleichzeitig und unabhängig von¬ 
einander laufen. Der Prozessor sorgt bei diesem Verfahren 
dafür, daß alle Programme nacheinander Rechenzeit zugewiesen 
bekommen. Zunächst läuft das Programm mit höchster Priorität. 
Muß dieses Programm auf etwas warten (einen Tastendruck des 
Benutzers, beispielsweise), oder ist das Zeitlimit (ein paar 
Mikrosekunden) abgelaufen, dann kommt das Programm mit der 
nächstniedrigeren Priorität zum Zuge, während das erste Pro¬ 
gramm auf Eis gelegt wurde. 

Aus der Sicht des einzelnen Programmes wird diese Zeitzuwei¬ 
sung gar nicht bemerkt (ein Programm merkt ja bekanntlich 
nicht, daß es abgeschaltet worden ist), und läuft also scheinbar 
gleichzeitig mit vielen anderen Programmen. 

Möchte ein Programm jedoch mit einem zweiten, "gleichzeitig" 
laufenden, kommunizieren, dann wird es schon schwieriger. Da 
in Wirklichkeit ja immer nur ein Programm läuft, ist es schwie¬ 
rig, an ein anderes, auf Eis gelegtes Programm, Daten zu senden. 
Daher bedient man sich des Message-Ports, mit denen einzelne 
Tasks (Programme) versehen werden können. Ein Message-Port 
ist eine Art Briefkasten, in den andere Programme Daten legen 
können, die dann vom Zielprogramm gelesen werden, sobald es 
wieder einmal Rechenzeit bekommt. 
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Die Node-Strukturen können Sie als Benutzer ganz kalt lassen, 
denn Sie brauchen sich nicht um sie zu kümmern. Das System 
benutzt sie, um Listen zu bilden. Dabei ist die Node-Struktur 
sowas wie ein Mitgliedskopf, der Informationen über das voran¬ 
gegangene und noch folgende Mitglied enthalten. Außerdem 
kann jede Node mit einem Namen und einer Priorität versehen 
werden. Oftmals werden dann Listen mit nach Priorität geord¬ 
neten Nodes geschaffen. 


2.8.1 AmigaBASIC und I/O 

Nach soviel grauer Theorie endlich wieder etwas praktisches! 
Vielleicht haben die vielen Strukturen Sie etwas abgeschreckt. 
Alles ist halb so kompliziert. Schauen Sie sich einmal die folgen¬ 
den SUB-Routinen an. Sie erledigen die gröbsten Initialisie¬ 
rungsaufgaben für Sie: 


Programm-Größe: 2146 Bytes 

Bemerkungen: "exec.bmap" muß sich auf Disk befinden 


'I/O-Packet 

DECLARE FUNCTION OpenDevice& LIBRARY 
DECLARE FUNCTION CloseDevice& LIBRARY 
DECLARE FUNCTION AllocMem& LIBRARY 
DECLARE FUNCTION AllocSignal& LIBRARY 
DECLARE FUNCTION FindTask& LIBRARY 
DECLARE FUNCTION DoIO& LIBRARY 


LIBRARY "exec.library" 'exec.library eroeffnen 

CreatePort 
CreatelO port& 

OpenDevice "trackdisk. device" , io&, 0& 

PRINT "Disk 0: Motor Test - Status: xxx" 

LOCATE 1,1 

FOR t=l TO 10000:NEXT t 'motor auslaufen 
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PRINT TAB(30);“ein“ 

POKEW io&+28,9 
PÖKEL io&+36,1 
e&=DoI0&(io&) 

PRINT "Maus-Taste betaetigen!" 

SLEEP 

SLEEP 

LOCATE 1,1 

PRINT TAB(30);"aus" 

PRINT "Test beendet."+SPACE$(30) 

PÖKEL io&+36,0 
e&=DoI0&(io&) 

ShutDevice io& 

RemovePort port&,sigBit% 

DeletelO io& 

LIBRARY GLOSE 
END 


LIBRARY CLOSE 'exec.library wieder schliessen 
END 


SUB OpenDevice (dev$,io&,unit&) STATIC 
dev$=dev$+CHR$(0) 

succ&=OpenDevice&(SADD(dev$),unit&,io&,0) 

IF succ&OÖ THEN 

PRINT "Device laesst sich nicht oeffnen.” 
EXIT SUB 
END IF 

END SUB 


SUB ShutDevice(io&) STATIC 
CALL CloseDevice(io&) 


END SUB 
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SUB CreatePort STATIC 

SHARED port&,sigBit% 

opt&=2~0+2"16 

port&=AllocMem&(38,opt&) 

IF port&rO THEN PRINT “Kein Speicherplatz!": EXIT SUB 
sigBit%=AllocSignal&(-l):IF sigBit%=-l THEN ERROR 255 
sigTas k&~FindTask&(0) 

POKE port&+S,4 

PÖKEL port&+10,port&+34 

POKE port&+15,sigBit% 

PÖKEL port&+16,sigTask& 

PÖKEL port&+20,port&+24 
PÖKEL port&+28,port&+20 
POKE port&+34,ASC( M M“) 

POKE port&+35 , ASC (‘’S“ ) 

POKE port&+36,ASC("G") 

CALL AddPort(port&) 

END SUB 


SUB RemovePort(port&,sigBit%) STATIC 

CALL RemPort(port&) 

CALL FreeSignal(sigBit%) 

CALL FreeMem&(port&,38) 

END SUB 
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SÜB CreatelO(port&) STATIC 

SHABED io& 
opt&=2"0+2"16 
io&=AllocMem&(62,opt&) 

IF io&= 0 THEN PRINT “Kein Speicherplatz! H :EXIT SÜB 
POKE io&+8,5 
PÖKEL io&+14,port& 

POKEW io&+18,12 

END SÜB 


SÜB DeletelO(io&) STATIC 

CALL FreeMem(io&,62) 

END SÜB 


Variablen: 


e&: 

dev$: 

io&: 

unit&: 

succ&: 

port&: 

opt&: 

sigBit%: 

sigTask&: 


I/O-Error Flag 

Name des Devices 

Adresse des I/O-Request Blocks 

Nummer der Einheit 

Fehlerflag der exec-Funktion 

Adresse des Message Ports 

Memory-Optionen 

Signalbit 

Adresse des Taskhandlers 
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Programmbeschreibung: 

Diese Routinensammlung enthält alle Funktionen, die für die 
Nutzung der I/O notwendig sind: 

1. CreatePort/RemovePort 

CreatePort initialisiert eine Message Port Struktur, bindet den 
neuen Port in die Systemliste ein und liefert die Anfangsadresse 
des neuen Ports an das Hauptprogramm zurück. 

Die beiden Variablen port& und sigBit% werden als Öffentlich 
deklariert; port& beinhaltet die Anfangsadresse des neuen Ports 
und soll später im Hauptprogramm weiterverwendet werden 
können, während sigBit% für den Aufruf RemovePort zur Ver¬ 
fügung stehen muß. 

Ein 38 Bytes großer Speicherbereich wird reserviert. Außerdem 
wird ein Signalbit gepachtet und der Taskhandler gesucht (und 
gefunden). Jetzt kann die Message-Port-Struktur initialisiert 
werden (siehe Anfang dieses Kapitels): Node-Typ ist NT 
MESSAGE PORT (=4), der Name der Node "MSG". SigBit und 
Task werden eingesetzt, die List-Struktur initialisiert (lh Head 
zu lh Tail; lh TailPred zu lh Head). Anschließend wird der neue 
Port via exec-Befehl AddPort in die Systemliste eingebunden. 
Sobald AddPort aufgerufen wurde, ist der neue Port "MSG" Teil 
der System-Liste. Die vormals mit 0 initialisierten Node-Felder 
ln Succ sowie ln Pred zeigen nun auf den vorangegangenen, 
bzw. folgenden Port im System. 

RemovePort verlangt die Adresse des betreffenden Ports und das 
Signalbit, und sorgt dafür, daß dem Amiga zurückgegeben wird, 
was während der Schaffung des Ports genommen worden war: 
Der Port wird zunächst aus der Systemliste gekoppelt (RemPort), 
das Signalbit wird wieder freigegeben (FreeSignal), und schließ¬ 
lich werden die durch den Port belegten 38 Bytes zurückgegeben 
(Kleinvieh macht auch Mist). 
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2. CreatelO/DeletelO 

CreatelO verlangt die Adresse eines bereits durch CreatePort 
initialisierten Message Ports. Es initialisiert den I/O Standard 
Request Block und liefert seine Anfangsadresse in io& ans 
Hauptprogramm zurück. 

Zunächst wird io& veröffentlicht. Ein 62 Bytes großer Speicher¬ 
bereich wird beschlagnahmt, in den anschließend der Request 
Block gelegt wird. Der eigentliche Standard Request Block 
benötigt übrigens nur 48 Bytes, aber es gibt einige Spezialfälle 
(beispielsweise für Extended Disk I/O und spezielle Drucker¬ 
funktionen; mehr darüber später), für die bis zu 62 Bytes zur 
Verfügung stehen müssen. 

Der Typ ist NT MESSAGE (=5), Message Port ist port&, die 
Länge der Message ist 44. 

Hier wird wieder das Prinzip des Message Ports klar: Der 
gesamte I/O Standard Request Block wird durch den Message- 
Teil zu einer Mitteilung, die an einen Message Port geschickt 
werden kann (den Message Port des Händlers). Gleichzeitig muß 
aber auch der request Block einen Message Port besitzen, an 
welchen der Händler eine Botschaft zurücksenden kann. Man 
nennt den Message Port des Blocks deshalb oft auch Reply Port 
(Antwort-Port). DeletelO gibt die 62 I/O-Block Bytes wieder 
zurück. 


3. OpenDevice/ShutDevice 

OpenDevice aktiviert den Device Händler. Bereits vorher wurde 
angesprochen, was ein "Device" ist. Es ähnelt nicht nur inhaltlich 
einer Library, es muß auch wie eine solche geöffnet werden. 
OpenDevice fordert den Devicenamen, die Anfangsadresse des 
I/O Standard Request Blocks sowie eine Einheit-Nummer (nor¬ 
malerweise =0). Das Device wird eröffnet; es wird kein Wert ans 
Hauptprogramm zurückgeliefert. Der Name des Devices in dev$ 
wird mit einem Null-Byte abgeschlossen. Ein Ruf zur exec- 
Funktion OpenDevice öffnet den Händler. Dieser Händler füllt 
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die Felder "Device" und "Unit" im I/O-Block mit den korrekten 
Werten. 

ShutDevice benötigt die Andresse des entsprechenden I/O- 
Blocks und besteht lediglich aus dem Aufruf der exec-Funktion 
"CloseDevice". 


2.8.2 Drucker-I/O 

Die einfachste Möglichkeit, mit dem Printer in Kontakt zu tre¬ 
ten, sind die Befehle LPRINT und LLIST. Nicht viel schwie¬ 
riger ist es jedoch, das DOS-Printer-Device zu eröffnen. Es 
genügen die folgenden Zeilen: 

OPEN "prt:" FOR OUTPUT AS 1 

PRINT#1,«Hello Sebastian!» 

CLOSE 1 

Die Amiga-Leute mußten sich ja bereits bei der Entwicklung 
mit dem Problem auseinandersetzen, verschiedenste Druckerty¬ 
pen möglichst unkompliziert ansprechen zu können. Dazu wur¬ 
den die "Preferences" geschaffen, in denen man sich seinen 
Lieblingsdrucker einfach aussucht und der Amiga daraufhin mit 
diesem umzugehen weiß. Oftmals möchte man aber auch spe¬ 
zielle Druckereigenschaften wie Reversdruck, NLQ oder Druck¬ 
modi ändern. Damit auch dies so universell wie möglich gesche¬ 
hen kann, gibt es eine Liste festgesetzter Zeichenkombinationen, 
die für jeden Drucker gleich sind. Erst der Druckertreiber, der 
die genaueren Druckerparameter kennt, wandelt die Codes in die 
druckerspezifischen Werte um. Hier die Liste: 


Reset 

ESC+c 

Initialisieren 

ESC+#1 

Line Feed 

ESC+D 

Return, Line Feed 

ESC+E 

Reverse Line Feed 

ESC+M 

Norm. Zeichensatz 

ESC+tOm 

Schrägschrift ein 

ESC* [3m 

Schrägschrift aus 

ESC+ [23m 
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Unterstreichen ein 

ESC+ [4m 

Unterstreichen aus 

ESC+ [24m 

Fettdruck ein 

ESC+ [Im 

Fettdruck aus 

ESC+[22m 

Vordergrundfarbe 

ESC+[nm 

(n = zwei ASCII 

[ -Werte; 

3 gefolgt von 0 - 9) 

Hintergrundfarbe 

ESC+tnm 

(n = zwei ASCII 

[ -Werte; 

4 gefolgt von 0 - 9) 

Norm. Schrift 

ESC+[Ow 

Elite ein 

ESC+ [2w 

Elite aus 

ESC+ [Iw 

Feinschrift ein 

ESC+ [4w 

Feinschrift aus 

ESC+ [3w 

Breitschrift ein 

ESC+[6w 

Breitschrift aus 

ESC+ [5w 

Schattenschrift ein 

ESC+ [6"z 

Schattenschrift aus 

ESC+[5"z 

Doublestrike ein 

ESC+[4"z 

Doublestrike aus 

ESC+ [3"z 

NLQ ein 

ESC+[2"z 

NLQ aus 

ESC+[1"z 

Hochschrift ein 

ESC+[2v 

Hochschrift aus 

ESC+ [1 v 

Tiefschrift ein 

ESC+[4v 

Tiefschrift aus 

ESC+ [3v 

Norm.Linie 

ESC+[Ov 

Halbschritt hoch 

ESC+L 

Halbschritt tief 

ESC+K 

US-Zeichensatz 

ESC+(B 

Franz. Zeichensatz 

ESC+(R 

Deutsch. Zeichensatz 

ESC+(K 

Engl. Zeichensatz 

ESC+(A 

Dänisch. Zeichensatz 

ESC+(E 

Schwed. Zeichensatz 

ESC+(H 

Ital. Zeichensatz 

ESC+(Y 

Span. Zeichensatz 

ESC+(Z 

Japan. Zeichensatz 

ESC+(J 

Norweg. Zeichensatz 

ESC+(6 
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Dän. II Zeichensatz 

ESC+CC 

Proportional ein 

ESC+[2p 

Proportional aus 

ESC+Clp 

Proportional clear 

ESC+[Op 

Proport. Offset setz. 

ESC+[n E 

autom. Linksrand 

ESC+[5 F 

autom. Rechtsrand 

ESC+[7 F 

Blocksatz ein 

ESC+C6 F 

Blocksatz aus 

ESC+[0 F 

Justify 

ESC+C3 F 

Auto Center 

ESC+ [1 F 

1/8" pro Linie 

ESC+[0z 

1/6" pro Linie 

ESC+ [1z 


Natürlich funktionieren diese Kommandos nur bei Drucker, die 
auch in der Lage sind, sie auszuführen. Die Zeilen 

OPEN "prt:" FOR OUTPUT AS 1 
PRINT#1,CHR$(27)-f' t3m" 

PRINT "HELLO ERNESTINUM!" 

CLOSE 1 

würde beispielsweise den Text nur dann kursiv drucken, wenn 
der Drucker dafür auch vorgesehen ist. 


2.8.2.1 Dump - Grafik-Hardcopies 

Natürlich kann man den Drucker auch via "printer.device" als 
I/O-Gerät durch exec ansprechen. Der Aufwand, der dabei ent¬ 
steht, lohnt sich jedoch für die meisten Anwendungen nicht, 
"printer.device" hat jedoch einen Befehl zu bieten, der die 
Schwierigkeiten vergessen läßt: Ein beliebiger Rastport (Win¬ 
dow- oder Screen-Struktur) läßt sich auf einen (grafikfähigen) 
Drucker ausgeben. Dabei werden die Farben in verschiedene 
Muster verwandelt, falls es sich nicht um einen Farbdrucker 
handelt. 
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Das folgende Programm bietet Ihnen den dump-befehl, der fol¬ 
gendermaßen aufgerufen wird: 

dump "name",mode% 

Der Name entspricht dem Namen des Windows, das Sie gerne 
ausgedruckt hätten. Sie können aber auch SCREENx angebön, 
wobei x eine Zahl zwischen 0 und ... ist und die Nummer des 
Screens darstellt; SCREENO steht z.B. für den Workbench- 
Screen. 

Mode%=0: Die Bildschirmausdehnungen werden 1:1 in 

Druckerpixel umgewandelt 

Mode%=l: Es wird die maximale Druckerkapazität verwendet. 

Anmerkung: Es dauert seine Zeit, Grafik auszudrucken. Unidi- 
rektionaler Druck ist schneller als bidirektionaler. Im Normalfall 
ist die Hintergrundfarbe beim Amiga ein dunkles Blau. Diese 
Farbe wird bei einem Matrixdrucker natürlich als dunkles Raster 
mitgedruckt. Wollen Sie einen weißen Hintergrund, dann müssen 
Sie die Bildschirmfarben entsprechend vor dem Druck ändern. 

Während des Drückens kann das Programm nicht unterbrochen 
werden. 




* 

'* (C) 1986 by DATA BECKER GmbH Duesseldorf/FRG * 
'* (P) 15* August 1986 by Tobias "Kutte“ Weltner * 
'* * 
'* Dieses Programm verwendet das "printer. device" * 
'* des AMIGAs, um beliebige WINDOW- oder SCREEN- * 
'* inhalte auf einem Drucker aussugeben. * 
'* * 
'* Eine detaillierte Programm-Beschreibung sowie * 
'* die technischen Hintergruende und Anregungen * 
'* finden Sie in DATA BECKER's "AMIGA Tips & * 
'* Tricks". * 
'* * 
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'Definition der verwendeten Library-Funktionen 

DECLARE FUNCTION AllocMem& LIBRARY 
DECLARE FUNCTION OpenDevice& LIBRARY 
DECLARE FUNCTION AllocSignal& LIBRARY 
DECLARE FUNCTION FindTaskfc LIBRARY 
DECLARE FUNCTION DoIO& LIBRARY 

LIBRARY ”exec.library” 'exec.library eroeffnen 


main: 


GOSÖB ChangeColors '= 

GOSUB DrawStuff 

GOSUB Request ' = 

LIBRARY CLOSE 'exec.library wieder schliessen '= 
END 


ChangeColors: 
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PALETTE 0,1,1,1 
PALETTE 1,0,0,0 
PALETTE 2,.3,.3 ,.3 
PALETTE 3,.7,.7,.7 

RETURN 

DrawStuff: '- 

FOR x=l TO 10 

CIRCLE (100,100),50+(2*x),1 
NEXT x 

RETURN 

Request: '--- 

LOCATE 1, 1 

PRINT " *** DUMPER ***" 

PRINT "Eine Grafik-Hardcopy-Routine” 

LOCATE 5,1 

PRINT “Nennen Sie den Namen des Windows...“ 

PRINT “z.B. 'LIST ' “ 

PRINT “oder verwenden Sie SCREEN fuer die Aus-“ 
PRINT “gäbe eines ganzen Bildschirms...” 

PRINT “s.B. 'SCREEN0', 'SCREEN1' t ..." 

PRINT 

LINE INPUT “Ihr Wunsch—> “; wd$ 

Dump wd$,1 'selbst-implementierte Dump-Funktion 
RETURN 


' i i i i i i t t t * t t i i t i i i t t i i i i t i i i i * i i i i i t i i i i i i i i i i « i i i i i i 
i i i i i i i > t i i i i i i i i i i i > i > t i i i t i i i i t i i i » • < i i i t i i i « i i i t i i 

SUB Dump (wind$,mode%) STATIC 

SHARED m$,add&,pio&,port&,sigBit%,spec%,s% 

IF UCASE$(LEFT$(wind$,6))=UCASE$("screen") THEN 
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s%=VAL(RIGHT$(wind$,1)) 
m$- "screen" 

ELSE 

m$=wind$ 

END IF 


IF mode%=0 THEN 

spec%=0 '1:1 Print 

ELSE 

spec%=255 '1:MAX Print 

END IF 


CreatePort 'Message-Port und I/O-Struktur einrichten 

SetParameters 'Parameter in I/O-Struktur einfuellen 


dev$= "printer. device“+CHR$ (0) 
suc&-OpenDevice&(SADD(dev$),0,pio&,0) 
IF suc&<>0 THEN 

PRINT "Printer Device will nicht“ 
n 

END 
?? ! ) 

END IF 


'Drucker oeffnen 
'Drucker will nicht 
'z.B. immernoch offe 

'oder gar nicht da ( 


iert. sind, 
e&-DoI0&(pio&) 


Aktivieren der I/O 

Nur wenn alle Felder korrekt initialis 

darf die I/O aktiviert werden. 
Ansonsten meldet sich der boese GURU 


PRINT “Error = ";PEEK(pio&+31) 'Error Report 


ender: 

CALL CloseDevice(pio&) 
CALL RemPort(port&) 

CALL FreeSignal(sigBit%) 
CALL FreeMem(pio&,62) 


'Printer schliessen 
'Message-Port entfernen 
'Signal-Bit freigeben 
'I/O-Speicher und 
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CALL FreeMem(port&,38) 
END SUB 


'Message-Port-Speicher 

'zurueckgeben 


SUB CreatePort STATIC 

SHARED pio&,port&,sigBit% 

'Printer 10 einrichten 

opt&=2~ 0+2"16 'MEMF.CLEAR \ MEMF_CHIP 
pio&=AllocMem&(62,opt&) 'I/O-memory-block 
port&=AllocMem&(38,opt&) 'Message-Port raernory-block 
IF pio&= 0 OR port&=0 THEN 'ERROR 

PRINT "Ueber den Nutzen einer Speichererweiterung laesst s 
ich bekanntlich“ 

PRINT "streiten. An dieser Stelle waere jedoch eine solche 
Anschaffung" 

PRINT "aeusserst interessant, da Ihr AMIGA im Begriff ist, 
die letzten" 

PRINT “Speicherplatz-Reserven anzubrechen. Leider nicht ge 
nug fuer dieses" 

PRINT "Programm. (Schliessen Sie unnoetige Fenster und unn 
uetz herum-" 

PRINT "schwirrende Tasks, oder kaufen Sie sich eine Erweit 
erung. Dann" 

PRINT "koennen Sie nochmal vorbeischauen!)" 

ERROR 7 
END IF 

sigBit%=AllocSignal&(-1) 'Signal-Bit einsacken 

IF sigBit%=-1 THEN 
forever: 

PRINT "Alle Signal-Bits sind besetzt. Bitte legen Sie nich 
t auf! Sie" 

PRINT "werden bedient, sobald das naechste Signal-Bit frei 
ist. . . " 

GOTO forever 
END IF 
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sigTask&-FindTask&(0) 

'-Message-Port Initialisieren- 


'Notfalls koennen alle Zeilen, die mit einem Stern (*) geken 
nzeichnet 

'sind, weggelassen werden. Es handelt sich bei ihnen naemlic 
h um Fel- 

'der, die entweder ohnehin re-initialisiert oder automatisch 
gefuellt 

'werden. 

'Falls Sie jedoch Zeit und Lust haben, sollten Sie sich die 
Muehe 

'machen, sie mit zu uebernehmen, da es (1.) um's Prinzip geh 
t und (2.) 

'moegliche spaetere Erweiterungen und Veraenderungen'erhebli 
ch verein- 


'facht. 



PÖKEL 

port&,0 

'ln_Succ 

(*) 

PÖKEL 

port&+4,0 

'ln_Pred 

(*) 

POKE 

port&+8,4 

'Type=NT_ 

MSGPORT 

POKE 

port&+9,0 

'Priority(*) 

PÖKEL 

port&+10,port&+34 

'Name 


POKE 

port&+14,0 

'Flags^PA 

__SIGNAL (*) 

POKE 

port&+15,sigBit% 



PÖKEL 

port&+16,sigTask& 



PÖKEL 

port&+20,port&+24 

'lh Head 


PÖKEL 

port&+24,0 

'lh_Tail 

(*) 

PÖKEL 

port&+28,port&+20 

'lhJTailPred 

POKE 

port&+32,0 

'lh_Type 

(*) 

POKE 

port&+33,0 

'lh_Alignment (*) 

POKE 

port&+34,ASC ("P“ ) 

'Name 


POKE 

port&+35,ASC("R“) 

'der 


POKE 

port&+36,ASC(“T“) 

'Struktur 


POKE 

port&+37,0 

'0=ende 

(*) 
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CALL AddPort(port&) 'neuen Port in System einbinden 


PÖKEL pio&,0 
PÖKEL pio&+4,0 
POKE pio&+8,5 
POKE pio&+9,0 
PÖKEL pio&+10,0 

PÖKEL pio&+14,port& 
POKEW pio&+18,12 
PÖKEL pio&+20,0 
PÖKEL pio&+24,0 
POKEW pio&+28,0 
POKE pio&+30,0 
POKE pio&+31,0 

PÖKEL pio&+32,0 
PÖKEL pio&+36,0 
PÖKEL pio&+40,0 
PÖKEL pio&+44,0 

END SUB 


'ln„Succ (*) 

'InJPred (*) 

'NT„MESSAGE 


'Priority(*) 

'kein Name 

(*) 

'Length of 

Message 

'io_Device 

(*) 

' io_Unit 

(*) 

'Command 

<*) 

'Flags 

<*) 

' io_Error 

(*) 

' Actual 

(*) 

'Length 

(*) 

'DATA 

(*) 

'Offset 

(*) 


SUB SetPararaeters STATIC 


SHARED add&,m$,pio&,spec%,s% 


IF m$="screen" THEN 
f 1=2 

NGESPINST 

dwindow&=WINDOW(7) 
ELSEIF m$< >*' M THEN 
findwindow m$ 

IF fl=l THEN 


'Ein SCREEN soll's sein 

'fl=2:SCREEN, f1=0:WINDOW, f1=1:HIß 


'Sonderwuensche 
'gibt's nicht 
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fl=0 

PRINT “Window Not Found!” 

GOTO ender 
END IF 

dwindow&=add& 

ELSE 'Ein BAS IC-Window, bit 

dwindow&=WINDOW(7) 

END IF 


dRastPort&=PEEKL(dwindow&+50) 

dScreen&=dwindow&+46 

se 

FOR loop=0 TO s% 
ten SCREEN- 

found&=PEEKL(dScreen&) 

IF foand&<>0 THEN 

0 ) 

dScreen&=found& 

0 ) 

ELSE 
d. ) 

PRINT “SCREEN “;loop-1 
PRINT “ERROR - gewuenschter 
loop=s% 

END IF 
NEXT loop 

dViewPort&=dScreen&+44 
dColorMap&=PEEKL(dViewPort&+4) 
ENs 

dMode=PEEKW(dViewPort&+32) 

QrRTTTTMc 

flag=PEEK(dwindow&+26) 


ero 

IF' Cf lag AND 4)<>0 THEN 
nen fuer 

dwidth=PEEKW(dwindow&+112) 


'RastPort fuer WINDOWS 

'SCREEN Einsprungadres 

'Adresse der gewuensch 

'Struktur suchen 
'(normales Window: s%= 

'(normaler Screen: s%= 

'max. 10 Screens (9 ad 

Screen nicht vorhanden!“ 


'ViewPort des SCREENs 
'Farb-Tabelle des SCRE 

'Darstellungsmode des 

'WINDOW-Flag; 

'Bit 4=0: normal 
'Bit 4 = 1: gimmezero 2 

'Bildschirm-Informatio 

'Gimmezerozero-Window 
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Koordinaten 

dHeight=PEEKW(dwindow&+114) 
ELSE 

nen fuer 

dwidth=PEEKW(dwindow&+8) 
(ebenfalls 

dHeight=PEEKW(dwindow&+10) 
END IF 


'holen 

'Bildschirm-Informatio 
'anderes Window holen 
'Koordinaten) 


IF f1=2 THEN 

dRastPort&=dScreen&+84 
dwidth=PEEKW(dScreen&+12) 
(norm. 

dHeight=PEEKW(dScreen&+14) 
END IF 


'Ein Screen (fl=2): 
'Spezieller RastPort 
'Spezielle Koordinaten 

'x=640, y=200) 


POKEW pio&+28,11 
POKE pio&+30,1 
PÖKEL pio&+32,dRastPort& 
PÖKEL pio&+36,dColorMap& 
PÖKEL pio&+40,dMode 
POKEW pio&+44,0 
POKEW pio&+46,0 
POKEW pio&+48,dwidth 
POKEW pio&+50,dHeight 
PÖKEL pio&+52,dwidth 
PÖKEL pio&+56,dHeight 
POKEW pio&+60,spec% 

END SUB 


SUB f indwindow (nrn$) STATIC 
W-Struktur 
wind$=nm$ 


' DurapRas tPort 
'QuicklO (*) 


'OffsetX (*) 
'OffsetY (*) 
'Quelle x 
'Quelle y 
'dest x 
'dest y 

'special effects 


'geh such Int. 's WINDO 
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SHARED add& 
main: 

'add& geht zurueck an 

add&=WINDOW(7) 

'Einstiegspunkt 

SetToStart: 

ch&-PEEKL(add&+66) 
is nach oben 

IF ch&<>0 THEN 
add&=ch& 

GOTO SetToStart 

END IF 

'Zunaechst die Kette b 

'durcharbeiten 

FindTitle: 

indows 

title&^PEEKL(add&+32) 

'Name des gefundenen W 

'finden 

FOR counter=0 TO 100 

check=PEEK(title&+counter) 

IF checke>0 THEN 

check$=check$+CHR$(check) 

ELSE 

counter-100 

END IF 

NEXT counter 


comp$=check$:check$-“" 


IF UCASE$(wind$)oUCASE$(comp$) THEN 
nden? 

add&= PEEKL(add&+7 0) 

IF add&<>0 THEN 
ins... 

GOTO FindTitle 

ELSE 

PRINT "Window gibt es nicht." 
fl=l 

END IF 

END IF 

'na, das Gesuchte gefu 

'nein 

'aber da ist ja noch e 

'alle Windows durch 

'fl=l:HIRNGESPINST 

END SÜB 


2*8.3 Trackdisk-Device 


Als ein kleines Beispiel dafür, was man mit dem I/O-Packet in 
Beziehung Disk-Drive machen kann, versteht sich das folgende 
Programm. Es liest beliebige Sektoren einer Diskette und stellt 
den Inhalt als hexadezimale Zahlen sowie ASCII-Zeichen dar. 
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'diskEd 

DECLARE FUNCTION OpenDevice& LIBRARY 
DECLARE FUNCTION CloseDevicefc LIBRARY 
DECLARE FUNCTION AllocMem& LIBRARY 
DECLARE FUNCTION AllocSignalfc LIBRARY 
DECLARE FUNCTION FindTask& LIBRARY 
DECLARE FUNCTION DoIO& LIBRARY 
DECLARE FUNCTION OpenFont& LIBRARY 


LIBRARY "exec.library” 'exec.library eroeffnen 

LIBRARY "graphics. library” 'graphics. lib eroeffnen 

charset: '(80 Zeichen pro Zeile) 


font0$=”topaz.font”+CHR$(0) 
textAttr&(0)=SADD(fontO$) 
textAttr&(1)=8*2"16 

strFont&=OpenFont&(VARPTR(textAttr&(0))) 

IF strFont&<>0 THEN CALL SetFont(WINDOW(8),strFont&) 

PRINT ”{R]EAD E[X]IT” 

var: 


cradRead=2 
tdsector= 5 12 

raain: 

CreatePort 
CreatelO port& 
io&(0)=io& 

CreatelO port& 
io&(l)=io& 

OpenDevice M trackdisk. device",io&(0), 0& 
OpenDevice "trackdisk. device”,io&(1),1& 

CreateBuffer 512& 
diskBuffer&(0)= buffer& 

CreateBuffer 512& 
diskBuffer&(1)=buffer& 
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GOSUB editor 

ClearBuffer diskBuffer&(0),512& 

ClearBuffer diskBuffer&(1),512& 

ShutBevice io&(0) 

ShutDevice io&(l) 

ReraovePort port&,sigBit% 

BeletelO io&(0) 

DeletelO io&(l) 

LIBRARY CLOSE 
END 

editor: 

GOSUB Request 
marker=1 
IF in$-“R“ THEN 

LINE INPtJT “Drive > “; tin$ 
drive%=VAL(tin$) 

LINE INPUT “Sector > ";tin$ 
sector&^VAL(tin$) 

IF sector&>1760 THEN 

PRINT “INPUT ERROR: SECTOR 0 - 1759“ 

END IF 

sector&=sector& 

commandl&=2 

ChangeSector command1&,io&(drive%),sector&,diskBuffer&(dri 
ve%) 

MotorOff io&(drive%) 

FOR loop^O TO tdsector-1 STEP 25 
FOR loop2=0 TO 24 

check=PEEK(diskBuffer&(drive%)+loop2+loop) 
a$=HEX$(check) 

IF LEN(a$)=1 THEN 
a$=“0“+a$ 

END IF 
he$=he$+a$ 

IF check< 31 THEN 
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de$=de$+“?" 

ELSE 

de$=de$+CHR$(check) 

END IF 

IF loop2+loop=tdsector-1 THEN 
loop2=24 
END IF 
NEXT loop2 
PRINT he$;" ”;de$ 

he$="":de$="“ 
counter=counter+1 
NEXT loop 
counter=0 

ELSEIF in$= M X" THEN 
RETÜRN 
END IF 

GOTO editor 

Request: 

current=0 
FOR renew=0 TO 10 
in$(renew)="” 

NEXT renew 

LINE INPÖT M > “;in$ 

FOR loop=l TO LEN(in$) 
check$=MID$(in$,loop,1) 

IF check$< >” " AND check$<>",*' THEN 
f 1=0 

in$(current)=in$(current)+UCASE$(check$) 
ELSE 

IF f1=0 THEN 
fl=l 

current=current+1 
END IF 
END IF 
NEXT loop 

in$=UCASE$(LEFT$(in$(0),1)) 
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RETURN 


SUB ChangeSector (command&,io&,sector&,buffer&) STATIC 

tdsector=512 

POKEW io&+28,comraand& 

PÖKEL io&+36,tdsector 
PÖKEL io&+40,buffer& 
tdoffset=sector&*tdsector 
PÖKEL io&+44,tdoffset 
e&=DoIO&(io&) 

END SUB 

SUB Update(io&) STATIC 

POKEW io&+28,4 
e&=DoI0&(io&) 

END SUB 

SUB MotorOff (io&) STATIC 

POKEW io&+28,9 
PÖKEL io&+36,0 
e&=DoI0&(io&) 

END SUB 

SUB CreateBuffer (size&) STATIC 
SHARED buffer&,fl 
opt&=2~ 0+2‘' 16 

buffer&=AllocMem&(size&,opt&) 

IF buffer&-0 THEN 
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PRINT “Kein Speicherplatz!“ 
fl=l 
END IF 

END SÜB 

SÜB ClearBuffer (address&,size&) STATIC 
CALL FreeMem(address&,size&) 

END SÜB 

SÜB OpenDevice (dev$,io&,unit&) STATIC 
dev$=dev$+CHR$(0) 

succ&=OpenDevice&(SADD(dev$),unit&,io&,0) 

IF succ&oO THEN 

PRINT “Device laesst sich nicht oeffnen." 
EXIT SÜB 
END IF 

END SÜB 


SÜB ShutDevice(io&) STATIC 
CALL CloseDevice(io&) 

END SÜB 


SÜB CreatePort STATIC 

SHARED port&,sigBit% 
opt&=2“ 0+2"16 
port&=AllocMem&(38,opt&) 

IF port&-0 THEN PRINT “Kein Speicherplatz!": EXIT SÜB 
sigBit%=AllocSignal&(-l): IF sigBit%=-l THEN ERROR 255 
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sigTask&=FindTask&(0) 
POKE port&+8,4 
PÖKEL port&+10,port&+34 
POKE port&+15,sigBit% 
PÖKEL port&+16,sigTask& 
PÖKEL port&+20,port&+24 
PÖKEL port&+28,port&+2 0 
POKE port&+34 ,ASC("M M ) 
POKE port&+35 , ASC ('* S “ ) 
POKE port&+36,ASC("G") 
CALL AddPort(port&) 

END SUB 


SUB RemovePort(port&,sigBit%) STATIC 

CALL RemPort(port&) 

CALL EreeSignal(sigBit%) 

CALL FreeMem&(port&,38) 

END SUB 


SUB CreateIO(port&) STATIC 

SHARED io& 

opt&=2"0+2"16 

io&=AllocMera&(62,opt&) 

IF io&=0 THEN PRINT ' Kein Speicherplatz !": EXIT SUB 
POKE io&+8,5 
PÖKEL io&+14,port& 

POKEW io&+18,12 


END SUB 
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SÜB BeletelO(io&) STATIC 
CALL FreeMem(io&,62) 

END SÜB 

Hintergrund-Information zu Disketten-I/O: 

Die obigen Beispiele sollen einen kleinen Einblick geben, wie 
man die trackdisk-device Befehle in BASIC-Programmen 
anwendet. Aber es liegt ganz an Ihnen, ob Sie es damit bewen¬ 
det sein lassen wollen, oder ob Sie den vollen zur Verfügung 
stehenden Befehlssatz ausschöpfen. Hier finden Sie in einer 
Kurzbeschreibung, wie der I/O-Standard-Request-Block ausge¬ 
füllt werden muß, um mit allen Befehlen arbeiten zu können 
(näheres zum Standard Request Block siehe Kapitel I/O - Kom¬ 
munikation mit der Außenwelt). 


a) Datenmanipulations-Befehle 
ETD READ und CMD READ 

Diese beiden Kommandos transferieren Daten vom internen 
Track-Buffer zu einem beliebigen User-Buffer. Liegen die 
Daten für den verlangten Sektor bereits im Track-Buffer, so 
wird der Friede des Disk Drives nicht gestört. Andernfalls wird 
der Track, der den gesuchten Sektor enthält (1 Track = 22 Sek¬ 
toren = 11 KByte), in den Track-Buffer geladen. Sollten die 
Daten im Track-Buffer zuvor verändert worden sein, so werden 
diese zunächst auf die Disk geschrieben, bevor der neue Track 
eingeladen wird. CMD READ überprüft nicht, ob die Diskette 
im Laufwerk gewechselt wurde, während ETD READ diese 
Tatsache pingelig überprüft. 
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CMD READ: 


io Command 
io Length 

io Data 


io Offset 


2 

tdsector (=512) oder Vielfaches für mehr als 
einen Sektor 

Anfangsadresse des User-Buffers 

(siehe "Memory Handling" für Schaffung eines 

User Buffers) 

gewünschter Sektor (Sektor*512) 


ETD READ: 

io Command: 32770, ansonsten wie CMD READ, jedoch zusätz¬ 
lich, in einer Extended Request Form, die folgenden Felder: 

iotd Count (io+48): Wechselzahl. Jedes Mal, wenn eine Diskette 
neu in ein Laufwerk eingeführt wird, erhöht sich der sogenannte 
"Disk Change Counter", dessen augenblicklichen Stand Sie durch 
das Kommando TD CHANGENUM erfahren können. Nur wenn 
diese Wechselzahl kleiner oder gleich der Zahl ist, die Sie in 
diesem Feld angegeben haben, kann die Anweisung ordnungs¬ 
gemäß durchgeführt werden, andernfalls kommt es zu einem 
Error. Damit kann verhindert werden, daß während einer län¬ 
gerwährenden Diskettenoperation die Diskette hinterrücks aus¬ 
getauscht wird, etc. Sollten Sie EXTENDED DISK I/O wün¬ 
schen, ohne den Disk-Change-Schnickschnack zu wollen, so 
können Sie in dieses Feld einen Wert wie 100000 einsetzen, denn 
es ist zweifelhaft, daß Sie die Diskette hunderttausend Mal 
wechseln. 

iotd SecLabel (io&+52): Erlaubt den Zugriff auf die Sektor- 
Identifikations Köpfe. Jeder dieser Köpfe umfaßt 16 Bytes, die 
dem Disk Driver egal sind. Möchten Sie mit diesem Labels 
arbeiten, dann sollte dieses Feld auf einen Speicherbereich zei¬ 
gen, der für jeden geladenen Sektor 16 Bytes bereit hält (Bei 
einem Track also 22*16 Bytes). 
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ETD WRITE und CMD WRITE 

Diese beiden Befehle sind das Gegenstück zu den vorangegange¬ 
nen beiden. Sie transferieren Daten aus dem user Buffer in den 
Track-Buffer, von wo die Daten auf Disk geschrieben werden. 
Mit diesen Befehlen können Sie also praktisch auf jedes einzelne 
Bit auf Diskette zugreifen. 


CMD WRITE: 


io Command: 
io Length: 

io Data: 
io Offset: 


3 

tdsector (=512) oder Vielfaches für weitere 
Sektoren 

Zeiger zu User Buffer 
gewünschter Sektor (Sektor*512) 


ETD WRITE: 

io Command: 32771, ansonsten wie CMD WRITE, außerdem 
EXTENDED REQUEST, siehe EXTD READ. 


ETD UPDATE und CMD UPDATE 

Update sorgt dafür, daß der Inhalt des Track-Buffers auf Disk 
geschrieben wird. Dies geschieht normalerweise sowieso, aber 
wenn Sie es mal unbedingt selbst hervorrufen wollen, dann kön¬ 
nen Sie diesen Befehl verwenden. Der Track-Buffer wird aller¬ 
dings nur dann auf Disk geschrieben, wenn in ihm Änderungen 
vorgenommen worden waren. ETD UPDATE prüft dabei wieder 
zunächst, ob die Diskette unberechtigterweise gewechselt wurde. 

io Command: 4 CMD UPDATE 

io Command: 32772 ETD UPDATE 
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ETD CLEAR und CMD CLEAR 

Diese beiden Befehle erklären den Track-Buffer für ungültig. So 
muß beim nöchsten Zugriff zunächst wieder eine Leseoperation 
durchgeführt werden. Diese Befehle werden normalerweise 
benutzt, nachdem eine Diskette aus dem Laufwerk entfernt 
wurde, damit die alten Track-Daten nicht zufällig auf eine neue 
Diskette gelangen, wo sie sicherlich großen Schaden anrichten 
würden. 

io Command: 5 CMD CLEAR 

io Command: 32773 ETD CLEAR 


ETD MOTOR und TD MOTOR 

Mit diesem Befehl läßt sich der Motor eines Diskettenlaufwerkes 
kontrollieren. Er läßt sich ein- und ausschalten. Der vorange¬ 
gangene Zustand des Motors wird dabei an den User zurückge¬ 
geben. Wird der Motor eingeschaltet, dann erlaubt der Disk Dri¬ 
ver eine kleine Verzögerung, damit der Motor auf die benötigte 
konstante Geschwindigkeit kommt. Normalerweise ist es jedoch 
nicht nötig, den Disk Motor einzuschalten, da die entsprechen¬ 
den Befehle READ und UPDATE das sowieso erledigen. Es ist 
allerdings Ihre Verantwortung, den Motor nach beendigter I/O- 
Tätigkeit wieder auszuschalten. Hier kommt dann dieser Befehl 
zum Zuge: 

io Command: 9 TD MOTOR 

io Command: 32777 ETD MOTOR 

io Length: l=Motor ein 

0=Motor aus 

Nach Aufruf des Blocks enthält io Actual den alten Status des 
Motors. 
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TD FORMAT 

TD FORMAT schreibt Daten auf eine noch nicht formatierte 
Diskette. Es wird auch dazu benutzt, Hard Errors zu überschrei¬ 
ben. TD FORMAT ignoriert sämtliche Track-Daten, die sich 
bereits auf der Disk befanden, und überprüft auch nicht, ob die 
Diskette gewechselt worden ist. Das io Data Feld muß auf min¬ 
destens einen Track Daten zeigen (mindestens 11 KByte), io 
Offset muß auf Track-Anfänge zeigen (track+*512*22), io 
Length muß Vielfache der Track-Länge enthalten (22*512). 
Nach Ablauf dieses Befehls sollten die auf Disk geschriebenen 
Daten durch einen READ-Lauf überprüft werden (VERIFY). 

io Command: 11 

alles weitere siehe CMD WRITE, die obigen Hinweise sind zu 
beachten! 


TD REMOTE 

Mit diesem Befehl läßt sich ein Software Interrupt ins System 
einbinden, der immer dann "zündet", wenn eine Diskette ins 
Laufwerk eingelegt oder herausgenommen wird. 

io Command: 12 

io Data: Zeiger auf eine Software Interrupt 

Struktur 


b) Status-Befehle 


TD CHANGENUM 

Dieser Befehl liefert den Wert des aktuellen Disk Change Coun¬ 
ters (Wechselzähler) an den User zurück. 


io Command: 13 
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TD CHANGESTATE 

Mit diesem Befehl kann untersucht werden, ob sich in einem 
Diskdrive eine Diskette befindet. 0=Diskette im Drive, ansonsten 
keine drin. 

io Command: 14 


TD PROTSTATUS 

Dieser Befehl liefert 0 wieder, wenn die Diskette nicht write- 
protected ist, der kleine Nippel also unten liegt. 

io Command: 15 


Die Ergebnisse dieser Funktionsaufrufe werden durch die 
Standard Request Struktur an den User zurückgeliefert 
und stehen im Feld "io Actual" zur Verfügung. 
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3. Programmieren unter C auf dem Amiga 


Die Programmiersprache C ist im Kommen. Noch vor gar nicht 
langer Zeit nur unter Insidern im Gespräch, ist sie im Zuge des 
68000-Prozessors inzwischen überall zu finden. 

Auf dem Amiga läßt sich in C besonders effektiv programmie¬ 
ren, da ein großer Teil des Betriebsystemes selber in C geschrie¬ 
ben wurde und so alles wunderschön ineinander paßt. 

Doch kurze Vorrede und lieber gleich rein in die C-Program- 
mierung. Besorgen Sie sich einen C-Compiler (wir benutzen den 
Lattice-C-Compiler V3.3), und legen Sie los. 

Die Listings der hier aufgeführten C-Programme haben wir mit 
Zeilennummern ausgedruckt, damit wir sie besser erklären kön¬ 
nen (indem wir auf bestimmte Zeilennummern hinweisen). Sie 
müssen beim Abtippen diese Zeilennummern natürlich weglas¬ 
sen, sonst meldet der C-Compiler eine ganze Menge Fehlermel¬ 
dungen. 


3.1 Beim Amiga verwendete Variablen-Typen 

An die Kopfzeile jedes C-Programms gehört der Preprozessor- 
Befehl #include "exec/types.h". In diesem Headerfile werden 
einige Variablentypen definiert, die in allen anderen Headerfiles 
sowie auch in den meisten C-Programmen benutzt werden. 

Als wichtigstes seien folgende Variablen genannt: 


REGISTER: Auch sonst Register. Sollte öfter mal verwen¬ 

det werden, das Programme dadurch um eini¬ 
ges schneller werden können. 


LONG: 

ULONG: 

LONGBITS: 


vorzeichenbehafteter 32-Bit-Wert 
positiver 32-Bit-Wert 

Feld von 32 Bits, die einzeln manipuliert wer¬ 
den 
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WORD: 

UWORD: 

WORDBITS: 

vorzeichenbehafteter 16-Bit-Wert 
positiver 16-Bit-Wert 

Feld von 16 Bits, die einzeln manipuliert wer¬ 
den 

BYTE: 

UBYTE: 

BYTEBITS: 

vorzeichenbehafter 8-Bit-Wert 
positiver 8-Bit-Wert 

Feld von 8 Bits, die einzeln manipuliert 
werden 

STRPTR: 

APTR: 

Zeiger auf String 

Absoluter Zeiger in den Speicher 

FLOAT: 

DOUBLE: 

normal float 
normal double 

COUNT: 

UCOUNT: 

Zähler im Bereich von -32768 bis 32767 

Zähler im Bereich von 0 bis 65535 

BO OL: 

Flag 

Zusätzlich existieren noch folgende Makros: 

TRUE: 1 

FALSE: 0 


NULL: 

0, sollte verwendet werden um zu kennzeich¬ 
nen, daß diese Variable nicht benutzt wird 

BYTEMASK: 

Oxff 

FOREYER: 

zu finden im Headerfile intuition/intuition.h. 
Entspricht for (;;) 

NOT: 

gleich "!", jedoch um einiges verständlicher; 
auch aus dem Headerfile intuition/intuition.h 
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3.2 AmigaDOS 

Neben Intuition, der grafik-orientierten Benutzerschnitt- stelle, 
verfügt der Amiga auch noch über eine "normale" Schnittstelle - 
AmigaDOS. AmigaDOS erinnert an Betriebssysteme wie MS- 
DOS oder CP/M. Allerdings gibt es auch recht erhebliche 
Unterschiede. So ist AmigaDOS z.B. multitasking-fähig. 

Benutzt wird AmigaDOS wahrscheinlich nicht gerade von An¬ 
wendern - diese sind mit Intuition besser und einfacher bedient. 
Als Programmierer wird man jedoch nicht umhin kommen, 
AmigaDOS zu benutzen. 

Dies als kurze Einleitung. Mehr Informationen erhalten Sie im 
AmigaDOS-Manual von Commodore. 

Nein, das Kapitel ist damit noch nicht zu Ende. Hier finden Sie 
noch einige Informationen, die nicht im Manual zu finden sind. 
Außerdem folgen natürlich auch noch einige kurze Listings: 


3.2.1 AmigaDOS-Strukturen 

Wie der restliche Amiga greift auch AmigaDOS nicht auf fest¬ 
gelegte Speicherstellen zurück (vielleicht erinnern Sie sich noch 
an die Poke-Listings bei früheren Rechnern, z.B. beim C 64?). 
Auch AmigaDOS benutzt Strukturen. Indem man auf diese 
zurückgreift, kann man viele interessante Informationen erhalten 
und noch mehr interessante Aktionen hervorrufen. 

Hier erklären wir kurz die von AmigaDOS benutzten Strukturen 
- sofern wir über sie Bescheid wissen. Anwendungsbeispiele fin¬ 
den Sie im nächsten Teil dieses Kapitels. 

Die Grundstruktur beim AmigaDOS ist die Struktur "DosLi- 
brary". Sie erhalten diese durch folgenden Aufruf: 


doslibrary = (struct DosLibrary *) 

OpenLibrary (“dos.Iibrary“, 0); 
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Die Struktur DosLibrary setzt sich aus folgenden Komponenten 
zusammen: 

struct Library d1_lib 

APTR dl_Root 

APTR dl_GV 

LONG dl_A2 

LONG dl_A5 

LONG dl_A6 

Die Komponenten dl_A2, dl_A5 und dl_A6 stellen Registerin¬ 
halte da. Diese Komponenten werden von AmigaDOS zum Zwi¬ 
schenspeichern verwendet und sollten nicht verändert werden. 
Die Komponente dl_GV ist ein Pointer zu einer Sprungtabelle, 
genannt "Shared Global Vector". Diese Sprungtabelle wird intern 
von AmigaDOS benutzt. Ein sinnvoller Zugriff auf diese Kom¬ 
ponente setzt recht gute Kenntnisse des AmigaDOS voraus. Da 
wir diese zur Zeit noch nicht haben, können wir auch nicht nä¬ 
her auf diese Adresse eingehen. Wer etwas darüber herausfindet: 
Bitte unbedingt schreiben! 

Mit dl_lib kann man auf die Library-Struktur der AmigaDOS- 

Library zugreifen. Diese Struktur enthält die Versions-Nummer, 
die Knoten-Struktur und ähnliches. Diese Struktur wird an 
anderer Stelle in diesem Buch beschrieben. 

So richtig interessant wird’s wieder bei dl_Root. Diese Kompo¬ 
nente ist ein Zeiger auf eine RootNode-Struktur. In dieser 
Struktur finden Sie folgende Informationen: 

BPTR rn_TaskArray 
BPTR rn_ConsoleSegment 
struct DateStamp rn_Time 
LONG rn_RestartSeg 
BPTR rn Info 


Hier enthält rn__TaskArray[0] die maximale Nummer der CLIs, 
und rn_TaskArray[l] - rn_TaskArray[n] die Message-Ports für 
die einzelnen CLIs 1 - n. Die Komponente "rn_ConsoleSegment" 
enthält die Adresse der Seglist für die CLI. 
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In "rn_Time" ist die momentane Zeit abgespeichert. Die Struktur 
DateStamp hat übrigens folgende Komponenten: 

LONG dsDays 
LONG ds_Minute 
LONG ds_Tick 

"ds_Days M enthält die Anzahl der Tage, die seit dem 1. Januar 
1978 vergangen sind, "ds^JMinute" enthält die Anzahl der Minu¬ 
ten seit Mitternacht, und "ds__Tick" enthält die Anzahl der Ticks 
seit Anfang der letzten Minute. 

Weiter zur RootNode-Struktur: In "rn__RestartSeg" finden Sie die 
SegList für den Disk-Validator-Prozeß. Dieser Prozeß wird je¬ 
desmal in Gang geworfen, wenn eine Diskette in ein Laufwerk 
eingelegt wird. Hier könnten Sie einsetzen, wenn Sie ein bestim¬ 
mtes Programm jedesmal ausführen wollen, wenn eine neue Dis¬ 
kette eingelegt wird. 

Mit "rn_Info" kann schließlich auf eine Dosinfo-Struktur zuge¬ 
griffen werden. Diese Struktur wird momentan fast gar nicht 
benutzt, und deshalb hier auch nicht weiter auf geführt. Sie ist 
für spätere Erweiterungen (z.B. in Richtung Netzwerk) gedacht. 

Eine weitere wichtige Struktur ist FilelnfoBlock. Diese Struktur 
wird von den AmigaDOS-Befehlen "Examine" und "ExNext" be¬ 
nutzt. Sie muß auf einer 4-Byte-Grenze liegen, und sollte so 
mittels der Exec-Funktion "AllocMem" definiert werden (Alloc- 
Mem läßt Speicher-Blöcke immer auf einer 8-Byte-Grenze an¬ 
fangen). 

Im FilelnfoBlock findet sich folgendes: 

LONG fib OiskKey 
LONG fibJDirEntryType 
char fIb FileName[108] 

LONG fibProtection 
LONG fibEntryType 
LONG fib Size 
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LONG f ib_NumBLocks 
struct DateStamp fib_Date 
char fib_Comment[116] 

Wenn fib_DirEntryType kleiner als 0 ist, handelt es sich um ein 
File. Ist fib_DirEntryType jedoch größer als 0, so haben Sie ein 
Directory vor sich. 

In fib_FileName finden Sie den Namen des Files (abgeschlossen 
mit einer 0). Zur Zeit werden jedoch nicht alle 108 Zeichen be¬ 
nutzt, sondern nur 30. 

fib_Protection gibt an, ob und wenn ja das File geschützt ist. 
Bis jetzt haben nur die ersten vier Bits eine Bedeutung, und 
zwar folgende: 

Bit 0: delete 
Bit 1: execute 
Bit 2: write 
Bit 3: read 

Die Größe des Files finden Sie in fib_Size, und die Anzahl der 
belegten Blöcke in fib_NumBlocks. 

fib_JDate gibt die Zeit an, zu der das File zum letzten mal geän¬ 
dert wurde. 

Und schließlich steht in fib__Comment[l 16] noch der Kommen¬ 
tar zu dem File (wieder mit 0 abgeschlossen). 

Und nun die letzte Struktur: InfoData. Diese Struktur wird von 
der AmigaDOS-Funktion "Info” benutzt. Sie gibt Informationen 
über die Diskette aus: 

LONG id_NumSoftErrors 
LONG idJJnitNumber 
LONG id_DiskState 
LONG id_NumBlocks 
LONG id_NumBlocksUsed 
LONG id_BytesPerBlock 
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LONG idJ)iskType 
BPTR id_VoLumeNode 
LONG id_InUse 

Die meisten Komponenten dürften selbsterklärend sein. Falls das 
Flag id_InUse gleich 0 ist, wird die Diskette nicht benutzt. 
Zahlreiche Makros zur InfoData-Struktur finden Sie in dem 
Header-File "libraries/dos.h". 


3.2.2 Programme mit AmigaDOS-Funktionen und Strukturen 

Hier finden Sie einige kleine Routinen, die mit den AmigaDOS- 
Funktionen sowie den AmigaDOS-Strukturen arbeiten. Zu den 
Routinen haben wir meistens noch eine Hauptfunktion aufge¬ 
führt, um die Anwendung der jeweiligen Routine zu zeigen. 


3.2.2.1 Anzahl der freien Blöcke auf Disk bestimmen 

Mit Hilfe dieser Routine können Sie die Anzahl der freien 
Blöcke auf einer Diskette bestimmen. Wir haben diese Routine 
NumFreeBlocks genannt, und sie hat folgenden Code: 


tfinclude <libraries/dosextens. h> 
tfinclude <exec/memory. h> 


LONG NumFreeBlocks (name) 
char naroe[]; 

{ 

BPTR lock; 

struct InfoData *infodata; 
LONG numfreeblocks; 


infodata = AllocMem (sizeof (struct InfoData), MEMF_CLEAR 
); 
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lock = Lock (name, ACCESS_READ); 
if (lock == NULL) return (-1); 

if (Info (lock, infodata) == FALSE) return (-1); 


numfreeblocks = (infodata->id_NumBlocks) - (infodata->id_ 
NumBloeksüsed); 

UnLock (lock); 

return (numfreeblocks); 

} 


main() 

{ 

LONG numfreeblocks; 


numfreeblocks = NumFreeBlocks ("dfl:"); 
if (numfreeblocks == -1) 

{ 


printf ("Hey, ich hab Probleme!1!\n”); 
exit (FALSE); 

} 


printf (‘‘Freie Bioecke von dfl: %d\n“ , numf reeblocks); 

} 


Einige Worte zur Erklärung: Zuerst einmal werden die notwen¬ 
digen Headerfiles eingebunden. Mit "dosextens.h" werden 
gleichzeitig auch noch so wichtige Headerfiles wie "exec/types.h" 
und "libraries/dos.h" in den Programmtext eingefügt. Das File 
"exec/memory.h" muß auch eingefügt werden, da dort die für 
die AllocMem-Funktion notwendigen Makros definiert sind. 
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Und dann beginnt auch schon die Funktion. Aufgerufen wird 
die Funktion NumFreeBlocks mit dem Argument "name". Diese 
Variable enthält den gewünschten Drive-Namen. Dies könnte, 
wie in unserem Programm, "dfl:" sein; es sind jedoch auch Na¬ 
men wie "Workbench:" oder "ram:" erlaubt. 

Sodann werden die benötigten Variablen definiert. Der Zeiger 
auf eine Struktur vom Typ "InfoData" muß jedoch auf einer 4- 
Byte-Grenze beginnen. Dieses erreicht man durch Verwendung 
der exec-Funktion "AllocMem". Das Attribut "MEMF_CLEAR" 
sorgt dafür, daß der gewünschte Speicherbereich mit Nullen 
gefüllt wird. Dann wird mit der AmigaDOS-Funktion "Lock" ein 
Zeiger auf die FileLock-Struktur zu der gewünschten Disk be¬ 
stimmt. Falls dieser Zeiger gleich Null ist, hat irgendetwas nicht 
ganz geklappt, und NumFreeBlocks springt vorsichtshalber mit 
dem Fehler-Code -1 zurück. 

Hat alles geklappt, so wird mit der AmigaDOS-Funktion "Info" 
die InfoData-Struktur mit den Werten der gewünschten Disk 
gefüllt. Auch hier wird bei einem auftretenden Fehler wieder 
mit -1 zurückgesprungen. Schließlich wird die Anzahl der freien 
Blöcke bestimmt, indem von der Anzahl der möglichen Blöcke 
die Anzahl der schon belegten Blöcke abgezogen wird. Danach 
muß der Lock wieder freigegeben werden. Dies geschieht mittels 
der AmigaDOS-Funktion UnLock. In main wird als Beispiel die 
Funktion NumFreeBlocks mit dem Parameter "dfl:" aufgerufen. 


3.2.2.2 Größe eines Files bestimmen 

Diese Funktion bestimmt die Größte eines beliebigen File auf 
Disk: 


ttinclude <1ibraries/dosextens. h> 
tfinclude <exec/memory. h> 
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LONG FileSise (name) 
char namef]; 

{ 

BPTR lock; 

struct FilelnfoBlock *fileinfoblock; 


fileinfoblock - AllocMem (siseof (struct FilelnfoBlock), 
MEMF_CLEAR) ; 


lock - Lock (name, ACCESS_READ); 
if (lock == NULL) return (-1); 


if (Examine (lock, fileinfoblock) == FALSE) return (-1); 
UnLock (lock); 

return (fileinfoblock->fib_Sise) ; 

} 


main() 

{ 

LONG filesise; 


filesise = FileSise ( ,l df 0: pref erences ” ); 
if (filesise = = -1) 

{ 

printf (“Nanu, wo hamwa denn das File...\n“); 
exit (FALSE); 

} 


printf ("Groesse von preferences: %d\n“, filesise); 



Programmieren unter C 


203 


Diese Funktion ist der obigen ziemlich ähnlich. Zuerst werden 
wieder die benötigten Header-Files in den Text eingebunden. 
Innerhalb der Funktion FileSize werden wieder zuerst die benö¬ 
tigten Variablen definiert, wobei auch die Struktur vom Typ 
FilelnfoBlock auf einer 4-Byte-Grenze beginnen muß. Sodann 
wird der lock zu dem gewünschten File besorgt; anschließend 
wird mit der AmigaDOS-Funktion Examine der FilelnfoBlock 
zu dem gewünschten File in den Speicher geholt. Ist hierbei ein 
Fehler auf getreten, wird FileSize wiederum mit -1 verlassen. 
Auch hier muß danach der Lock wieder freigegeben. Ist alles 
gut gegangen, springt FileSize mit der File-Größe in Bytes wie¬ 
der zurück. 

In main wird die Funktion ausprobiert; als File wird 
dfLPreferences genommen. Ist ein Fehler aufgetreten, d.h., 
wurde FileSize mit dem Wert -1 verlassen, so gibt der Amiga 
eine entsprechende Meldung aus. 


3.2.2.3 File vorhanden? 

Mit Hilfe dieser kleinen Routine können Sie testen, ob ein be¬ 
stimmtes File (oder auch Directory) vorhanden ist. Die Funktion 
heißt FileExists und wird folgendermaßen aufgerufen: 


FileExists (Name in Gänsefüßchen) 

Als Ergebnis liefert die Funktion einen Boolean-Wert zurück - 
TRUE, wenn das File existiert, und FALSE, falls nicht. Hier 
das Listing: 

ttinclude <libraries/dosextens. h> 


BOOL FileExists (name) 
char riame[]; 

{ 

BOOL fileexists; 
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fileexists = Lock (name, ACCESS_REAB); 
UnLock (fileexists); 

if (fileexists == NULL) 
return (FALSE); 
eise return (TRUE); 


raain () 

{ 

if ((FileExists ("dfO:Clock")) == FALSE) 

printf (“Oh, keine Uhr in Drive dfO:\n“); 
eise printf ("Da isse ja, die kleine Uhr.\n”); 


if ((FileExists (“df 1: Upplands_Vasby")) == FALSE ) 

printf (“As far as my eyes can see - kein solches File 
in Sicht\n“); 

eise printf (“Welch Zufall! Schwedenfahrer?!\n“); 


Die Routine beruht darauf, daß die AmigaDOS-Funktion Lock 
den Wert 0 zurückgibt, falls das gewünschte File nicht existiert. 
Natürlich hätte man diesen Test auch mittels der AmigaDOS- 
Funktion Open durchführen können - Lock hat jedoch viel 
weniger "overhead" (siehe Sachworterklärung im Anhang) als 
Open. 
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3.2.2.4 File-Kommentar lesen 

Diese Funktion stellt das Gegenstück zu der AmigaDOS-Funk- 
tion SetComment da. Wir haben sie sinnvollerweise GetComment 
genannt, und sie wird so aufgerufen: 

GetComment (Name des Files in Gänsefüßchen) 

Als Ergebnis erhalten Sie einen Zeiger auf d6n Kommentar 
zurück. Hier nun das Listing: 

Kinclude <libraries/dosextens. h> 
ttinclude <exec/memory. h> 


char ^GetComment (name) 
char name[]; 

{ 

BPTR lock; 

struct FilelnfoBlock *fileinfoblock; 


fileinfoblock = AllocMem (sizeof (struct FilelnfoBlock), 
MEMF_CLEAR); 


lock = Lock (name, ACCESS_READ); 
if (lock == NULL) return ((char *) -1); 


if (Examine (lock, fileinfoblock) == FALSE) return ((char 

*) -i); 
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UrxLock (lock); 


return ((char *) &(fileinfoblock->fibjComment)); 

} 


main () 

{ 

char »comment; 


comment = GetComment ("df0:Preferences"); 
if (comment = = (char *) -1) 

{ 

printf ("Leider keine Preferences in df0:\n"); 
exit (FALSE); 

> 


printf ("Der Kommentar zu Preferences lautet:\n%s\n", com 
ment) ; 


In den Zeilen 17, 20, 26 sowie 37 muß eine Cast-Operation 
verwendet werden, damit der zurückgegebende bzw. verglichene 
Wert vom geforderten Typ ist. Sollten Ihre Preferences keinen 
Kommentar besitzen, so sollten Sie zum Testen der Funktion 
GetComment einen hinzufügen. Dies können Sie zum Beispiel 
von der Workbench aus mit dem Menüpunkt Info erreichen. 
Ansonsten ist die Funktion den oberen dreien (bes. der Funktion 
FileSize) ziemlich ähnlich und braucht daher nicht weiter erklärt 
zu werden. 


3.2.2.5 GetProtection 

Diese Funktion ist das Gegenstück zu der AmigaDOS-Funktion 
SetProtection. Wird diese Funktion mit einem File-Namen als 
Argument aufgerufen, so gibt sie die Protection-Bits wieder 
zurück. Diese Bits können Sie dann mit Hilfe der Makros in 
dem Headerfile "libraries/dos.h" entschlüsseln. Das Listing der 
Routine: 
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tfinclude <libraries/dosextens. h> 
tfinclude <exec/memory.h> 


LONG GetProtection (name) 
char name[]; 

{ 

BPTR lock; 

struct FilelnfoBlock *fileinfoblock; 


fileinfoblock = AllocMem (sizeof (struct FilelnfoBlock), 
MEMF_CLEAR); 


lock = Lock (name, ACCESS_REAB); 
if (lock == NULL) return (-1); 

if (Examine (lock, fileinfoblock) == FALSE) return (-1); 
UnLock (lock); 

return (fileinfoblock->fib_Protection); 


main() 

{ 

LONG protection; 


protection = GetProtection ("df0:Preferences"); 
if (protection == -1) 

{ 

printf (“?FILE NOT FOUND ERROR\nREADY.\n”); 
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exit (FALSE); 

} 


if (protection && FIBF_DELETE) 

printf ("Delete-Protection off\n''); 
eise printf ("Delete-Protection on\n"); 


Da zur Zeit nur das Delete-Bit bei den Protection-Bits benutzt 
wird, testet das Programm auch nur dieses Bit ab. 


3.2.2.6 Effektivere Warteschleifen mit Delay 

Manchmal ist der Computer zu langsam, manchmal zu schnell. 
Ist er zu langsam, muß man sich einen neuen kaufen. Ist er 
jedoch zu schnell, so packt man einfach eine Warteschleife ins 
Programm. Diese ist in C schnell geschrieben, und sieht meistens 
ungefähr so aus: 

for (t = 0; t < 100000; t++) ; 

Doch der Amiga ist ein Multitasking-Computer. Und aus diesem 
Grund wäre obrige Anweisung sehr uneffektiv. Denn der Amiga 
würde die for-Anweisung wie jede andere Anweisung auch 
ausführen, d.h. der Task würde genau sein Quentchen Zeit in 
Anspruch nehmen, obwohl er in dieser Zeit eigentlich nur war¬ 
tet. Folgendes Programm verdeutlicht das: 


tfinclude <exec/types.h> 
tfinclude <exec/tasks. h> 
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main () 

{ 

struct Task *task; 
UCOUNT saehler; 


task = FindTask (0); 
SetTaskPri (task, 30); 


for (saehler = 1; saehler < 1000; zaehler++) 

printf (“Zürn %d. mal: Multitasking adieu. . . \n“ , zaehle 
r); 


Tippen Sie das Programm ab, compilieren und linken Sie es. 
Nun starten Sie ein beliebiges Programm, zum Beispiel Gra- 
phicraft, mit "run Graphicraft". Malen Sie nun ein bißchen 
herum. Holen Sie anschließend mit "LeftAmiga + n" den Work- 
bench-Screen nach vorne, und starten Sie das compilierte Pro¬ 
gramm. Holen Sie nun mit der Tastenkombination "LeftAmiga + 
m" den Graphicraft-Screen wieder nach vorne, und versuchen 
Sie, wieder ein bißchen zu malen. Leider geht das nicht mehr. 

Intuition bekommt noch etwas System-Zeit, so daß Menus, 
Screens, Windows und dergleichen bedient werden können. 
Andere Tasks erhalten jedoch nichts mehr. 

Zur Erklärung: Das Programm setzt zuerst einmal seine eigene 
Task-Priorität hoch. Dazu holt es sich erst mittels der exec- 
Funktion FindTask einen Zeiger auf die Task-Struktur. In Zeile 
13 wird sodenn die Taskpriorität durch die exec-Funktion 
SetTaskPri auf 120 gesetzt. Danach wird ziemlich lange gewartet. 
Damit Sie sicher sind, daß das Programm auch schön läuft, wird 
jedesmal eine Meldung ausgegeben. Sollten Sie auch noch die 
printf-Anweisung herausnehmen, so wird selbst Intuition nicht 
mehr funktionieren (wahrscheinlich hat die Grafik-Routine, mit 
deren Hilfe Zeichen ausgegeben werden, eine niedrigere Priori¬ 
tät als Intuition; wird nichts mehr ausgegeben, kommt selbst 
Intuition nicht mehr dazwischen). Probieren Sie nun ein weiteres 
Programm: 
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tfinclude <exec/types. h> 
tfinclude <exec/tasks. h> 


main () 

{ 

struct Task *task; 


task = FindTask (0); 
SetTaskPri (task, 30); 


Delay (3000); 

> 


Dieses Programm ist dem obigen ziemlich ähnlich. Statt der 
Warteschleife mit for wurde der AmigaDOS-Befehl Delay ein¬ 
gesetzt. Dieser Befehl erwartet als Argument die Anzahl von 
Ticks, die abgewartet werden sollen (eine Sekunde besteht aus 
ca. 50 Ticks). Die Besonderheit von Delay bemerken Sie jedoch, 
wenn Sie die gleiche Prozedur wie oben beschrieben durchfüh¬ 
ren. Diesmal läßt sich noch mit Graphicraft arbeiten, wenn das 
Programm gestartet ist. Delay setzt den Task nämlich in den sog. 
Wait-Modus; solange der Task auf die Antwort des Timer-De¬ 
vices wartet, können andere Tasks ablaufen, und Multitasking ist 
gewährleistet. 

Also: Beim Warten immer Delay verwenden, da sonst andere 
Tasks keine System-Zeit bekommen. 


3.3 Grafik-Programmierung auf dem Amiga 

Vorbei sind die Zeiten, wo der Computer geradeso Schrift dar¬ 
stellen konnte. Vorbei sind Auflösungen von 176 * 184 Punkten. 
Ein moderner Computer hat 640 * 400 Auflösung, jede Menge 
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Farben, eingebaute Grafikbefehle. Der Amiga hat noch einiges 
mehr: Screens, Windows, Menüs, einfache Rasterinterruptpro¬ 
grammierung, extra Grafik-Prozeßor, Requesters, Gadgets, und, 
und, und. 

Wie Sie alles dies benutzen können, wollen wir Ihnen in diesem 
Kapitel zeigen. 


3.3.1 Screens und Windows 

Die Basis für jedwede Grafik-Darstellung ist der Screen. Das 
war auch beim VC-20 und C64 so. Zum Unterschied zu diesen 
beiden und auch den meisten anderen Computern kann der 
Amiga jedoch nicht nur einen, sondern beliebig viele Screens 
haben. Dabei kann jeder Screen völlig andere grafische Eigen¬ 
schaften besitzen. Ein Screen könnte zum Beispiel eine Auflö¬ 
sung von 640 * 400 Punkten bei acht Farbregistern besitzen, 
während gleichzeitig ein anderer Screen eine Auflösung von 320 
* 200 Punkten mit zwei Farbregistern hat. Doch nicht nur Auf¬ 
lösung und Tiefe können bei einem Screen festgelegt werden. So 
kann zum Beispiel auch für jeden Screen bestimmt werden, was 
für ein Zeichensatz verwendet wird, wo er liegt, woher er seine 
BitMap bekommt. 

Das zweite wichtige Element sind Windows. Diese werden inner¬ 
halb eines bestimmten Screens eröffnet und können diesen auch 
nicht verlassen. Windows können in beliebiger Anzahl eröffnet 
werden - und auch sie können völlig verschiedenes Aussehen 
haben. Bei Windows kann man unter anderem Kriterien wie 
Größe, Lage, Titel, Gadgets und verwendete Flags festlegen. 

Screens und Windows werden von Intuition verwaltet. Sie rufen 
bestimmte Routinen auf, übergeben die gewünschten Eigen¬ 
schaften Ihrer Screens & Windows und haben damit Ruhe. 

Wenn ein Window vom Benutzer vergrößert oder verkleinert 
wird, wenn ein Window hin- und hergeschoben wird, wenn ein 
Screen nach vorne oder hinten geholt wird - Intuition erledigt 
alles. 
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Kommen wir zu den Einzelheiten. Dies am besten anhand eines 
Beispiels: 


ttinclude <exec/types. h> 
ttinclude <intuition/intuition.h> 


struct IntuitionBase *IntuitionBase; 


main() 

{ 

struct Screen *Screen; 
struct Window *Window; 
struct NewScreen NewScreen; 
struct NewWindow NewWindow; 


IntuitionBase = (struct IntuitionBase *) 

OpenLibrary ("intuition, library“ , 0) 

if (IntuitionBase == NULL) 

{ 

printf ("Tschuldigung, keine Intuition-Library\n”); 
exit (FALSE); 


NewScreen.LeftEdge =0; NewScreen.TopEdge = 0; 
NewScreen. Width = 640; NewScreen.Height = 200; 
NewScreen. Depth = 2; 

NewScreen. DetailPen = 0; NewScreen.BlockPen = 1; 
NewScreen.ViewModes = HIRES; 

NewScreen.Type = CUSTOMSCREEN; 

NewScreen.Font = NULL; 

NewScreen.DefaultTitle = "Ein neuer Screen”; 
NewScreen.Gadgets = NULL; 

NewScreen. CustomBitMap = NULL; 

Screen = (struct Screen *) OpenScreen (&NewScreen); 
if (Screen == NULL) 

{ 

printf ("Screen laesst sich nicht oeffnen!!!\n”); 
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exit (FALSE); 

} 


NewWindow.LeftEdge = 20; 

NewWindow.TopEdge = 20; 

NewWindow.Width = 400; 

NewWindow.Height = 100; 

NewWindow.DetailPen = 0; 

NewWindow.BlockPen = 1; 

NewWindow.IDCMPFlags = CLOSEWINDOW; 

NewWindow.Flags = WINDOWSIZING | WINDOWDEPTH ! WINDOWCLOS 
E { WINDOWDRAG | 

SMART_REFRESH ! ACTIVATE ! NOCAREREFRES 
H; 

NewWindow.FirstGadget = NULL; 

NewWindow.CheckMark = NULL; 

NewWindow.Title = "*** Dies ist ein Test-Window ***“; 
NewWindow.Screen = Screen; 

NewWindow.BitMap = NULL; 

NewWindow.MinWidth = 400; NewWindow, MinHeight = 20; 
NewWindow,MaxWidth = 640; NewWindow. MaxHeight = 200; 
NewWindow.Type = CUSTOMSCREEN; 

Window = (struct Window *) OpenWindow (&NewWindow); 
if (Window == NULL) 

{ 

printf ("Probleme mit dem Window...\n"); 
exit (FALSE); 

> 
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Wait (1 << Window->UserPort->mp_SigBit) ; 


CloseWindow (Window); 
CloseScreen (Screen); 
CloseLibrary (IntuitionBase); 


} 


Tippen Sie das Programm ab, compilieren und linken Sie es, und 
starten Sie es dann. 

Das Window können Sie nun wie jedes andere Window bearbei¬ 
ten. Sie können es vergrößern, verkleinern, verschieben und 
schließen. Wenn sie es schließen, so wird das Programm beendet. 
Auch der Screen läßt sich ganz normal verwenden. Mit der 
Menüleiste können Sie ihn verschieben, und mit LeftAmiga + m 
nach vorne bringen. So, genug ausprobiert? Dann zu den Erklä¬ 
rungen: 


In den Zeilen 1 und 2 werden die notwendigen Header-Files in 
den Programmtext eingebunden. In intuition/intuition.h sind alle 
Strukturen, die etwas mit Intuition zu tun haben, zu finden (zum 
Beispiel alle Strukturen zu Screens und Windows, jedoch auch zu 
Gadgets, Requesters und dergleichen). Danach wird ein Zeiger 
auf eine IntuitionBase-Struktur definiert. Dieser Zeiger wird ge¬ 
braucht, wenn die Intuition-Library eröffnet wird. Und dann 
beginnt auch schon main. 

Hier werden zuerst alle benötigten Variablen definiert. Dann 
wird die Intuition-Library geöffnet. Dies geschieht mit dem 
exec-Befehl OpenLibrary. Das zweite Argument zu diesem 
Befehl gibt die gewünschte Versionsnummer an. In den Zeilen 
25 - 34 werden die einzelnen Komponenten einer NewScreen- 
Struktur beschrieben. Diese NewScreen-Struktur beschreibt den 
Screen. Die einzelnen Komponenten haben hierbei folgende 
Bedeutung: 

LeftEdge: Gibt den X-Wert des Anfangspunktes des Screens an. 
Diese Komponente wird in der jetzigen Ausgabe von Intuition 
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nicht benutzt. Damit Ihr Programm jedoch auch unter späteren 
Versionen von Intuition läuft, sollten Sie diese Komponente auf 
0 setzen. 

TopEdge: Y-Wert des Anfangspunktes. In unserem Beispiel ist 
der Anfangspunkt des Screens in der linken oberen Ecke des 
Bildschirmes. 

Width: Gewünschte Weite des Screens in Pixels. 

Height: Gewünschte Höhe des Screens - auch in Pixels. 

Depth: Anzahl der Bitmaps. Daraus ergibt sich die Anzahl der 
verfügbaren Farbregister. In unserem Beispiel sind es 2 Bitmaps, 
also 2 A 2 = 4 Farben. 

DetailPen: Nummer des Farbregisters, aus dem die Farbe für 
einige Sachen wie den Title-Text oder Gadgets genommen wer¬ 
den soll. 

BlockPen: Wie oben, jedoch für block fills, zum Beispiel Title- 
Hintergrund. 

ViewModes: Hier werden einige Flags gesetzt. Bis jetzt sind fol¬ 
gende verfügbar: 

HIRES: Muß gesetzt werden, wenn High-Resolution gefragt ist 
(wie in unserem Beispiel). 

INTERLACE: Schaltet Interlace-Modus für diesen Screen ein. 
Sollten Sie dieses Flag verwenden, und der Compiler gibt 
bekannt, daß das Flag gar nicht bekannt ist, so schauen Sie sich 
mal das Includefile graphic/view.h an und ändern Sie ggf. den 
Macro LACE in INTERLACE um. 

SPRITES: Muß gesetzt werden, wenn Sprites verwendet werden 
sollen. 

DUALPF: Setzen Sie dieses Flag, wenn Sie zwei Playfields haben 
wollen. 
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HAM: Schaltet Hold-and-Modify-Modus ein. 

Types: Hier können folgende Flags gesetzt werden: 

CUSTOMSCREEN: Sollte auf jeden Fall gesetzt werden. 

CUSTOMBITMAP: Setzen Sie dieses Flag, wenn Sie eine 
eigene Bitmap für diesen Screen haben wollen. 

Font: Ein Zeiger auf eine TextAttr-Struktur. Diese Struktur be¬ 
stimmt den Zeichensatz, in dem alle von Intuition ausgegebenen 
Texte erscheinen sollen (zum Beispiel Title, Menüs). In unserem 
Beispiel wurde diese Komponente auf Null gesetzt - dann nimmt 
Intuition den Standard-Zeichensatz. 

DefaultTitle: Zeiger auf gewünschten Title. Setzen Sie diesen 
Zeiger auf Null, wenn Sie keinen Titel haben wollen. 

Gadgets: Wird zur Zeit nicht benutzt und sollte auf Null gesetzt 
werden. 

CustomBitMap: Muß einen Zeiger auf eine BitMap-Struktur 
enthalten, wenn Sie für den Screen eine eigene Bitmap verwen¬ 
den wollen. Denken Sie auch daran, daß CUSTOMBITMAP-Flag 
in der Komponente Types zu setzen. 

Nachdem alle gewünschten Werte in der NewScreen-Struktur 
abgespeichert wurden, wird der Screen eröffnet. Dazu wird die 
Intuition-Funktion OpenScreen aufgerufen. Diese Funktion 
benötigt als Argument die Adresse einer NewScreen-Struktur. Ist 
ein Fehler aufgetreten, so gibt diese Funktion den Wert Null 
zurück. In diesem Fall gibt das Programm eine entsprechende 
Meldung aus, und verabschiedet sich. 

Ist alles gut abgelaufen, gibt OpenScreen einen Zeiger auf eine 
Screen-Struktur zurück. Diese Struktur ist im Headerfile intui- 
tion/intuition.h definiert und enthält folgende Komponenten: 
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NextScreen: Dies ist ein Zeiger auf eine weitere Screen-Struk- 
tur. Alle offenen Screens sind über diese Zeiger in einer Liste 
miteinander verkettet. 

FirstWindow: Diese Komponente ist ein Zeiger auf die Window- 
Struktur des ersten Windows in dem Screen. 

LeftEdge, TopEdge, Width, Height: wie bei NewScreen 

MouseY, MouseX: Hier sind die Koordinaten der Mouse abge¬ 
legt. 

Flags: Diese Komponente kann folgende Flags enthalten: 
WBENCHSCREEN: Workbench-Screen 
CUSTOMSCREEN: Eigener Screen 

SHOWTITLE: Wird gesetzt bei Aufruf von ShowTitle 

BEEPING: Wird gesetzt wenn Screen blinkt. 

CUSTOMBITMAP: Ist gesetzt, wenn der Programmierer eine 
eigene Bitmap wollte. 

Title: Titel des Screens. 

DefaultTitle: Title für Windows ohne Screen-Title. 

BarHeight, BarVBorder, BarHBorder, MenuVBorder, MenuHBor- 
der, WBorTop, WBorLeft, WBorRight, WBorBottom: Diese Vari¬ 
ablen geben die Größe der Title-Leiste für diesen Screen und 
alle Windows innerhalb des Screens an. 

Font: Zeiger auf eine TextAttr-Struktur. Diese Struktur gibt den 
Zeichensatz an, der für alle von Intuition ausgegebenen Texte 
innerhalb dieses Screens gelten soll. 
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ViewPort: ViewPort-Struktur für diesen Screen. In der View- 
Port-Struktur werden die Eigenschaften des Screens für den 
Copper verständlich dargestellt. 

RastPort: RastPort-Struktur für diesen Screen. 

BitMap: BitMap-Struktur für den Screen. Legt das Aussehen der 
Bitmap fest. 

Layerlnfo: Layer_Info-Struktur. Diese Komponente sowie 
ViewPort, RastPort und BitMap sind für Programmierer gedacht, 
die direkt in den Grafik-Speicher schreiben wollen. Da diese 
niedrige Ebene der Grafik-Programmierung ziemlich schwierig 
und meistens auch nicht unbedingt notwendig ist, wird auf diese 
vier Variablen nicht näher eingegangen. 

FirstGadget: Zeiger auf die Gadget-Struktur des ersten Gadgets 
für diesen Screen. Alle Gadgets werden in einer Liste gespei¬ 
chert; nicht in dieser Liste sind die System-Gadgets. 

DetailPen, BlockPen: wie bei NewScreen. 

SaveColorO: System-Variable für DisplayBeep. 

BarLayer: Zeiger auf die Layer-Struktur der Titel-Leiste für 
diesen Screen. 

Ext Data: ??? 

UserData: Zeiger auf irgendwelche Daten des Programmierers. 


Nachdem jetzt der Screen geöffnet wurde, ist es Zeit, ein Win¬ 
dow in diesem Screen zu eröffnen. Dazu wird in den Zeilen 44- 
60 eine NewWindow-Struktur beschrieben. Diese Struktur be¬ 
schreibt die Eigenschaften des Windows, und besitzt folgende 
Komponenten: 

LeftEdge, TopEdge, Width, Height: Beschreiben Größe und Lage 
des Fensters (siehe NewScreen). 
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DetailPen, Blockpen: siehe NewScreen 

IDCMPFlags: Hier geben Sie die Fälle an, für die Intuition 
Ihnen ein Signal via dem IDCMPort übergeben soll. Folgende 
Flags sind dabei möglich: 

MOUSEBUTTON: Muß gesetzt werden, wenn Intuition 
Ihnen ein Signal senden soll, wenn der Benutzer eine der 
beiden Maustasten gedrückt hat. 

MOUSEMOVE: Wenn dieses Flag gesetzt ist, werden 
Mausbewegungen berichtet. 

DELTAMOVE: Ist DELTAMOVE gesetzt, werden die 
Mausbewegungen nicht als absolute Werte, sondern als 
Delta-Werte (Anzahl der Änderungen bezüglich der letzten 
Position) angegeben. 

GADGETDOWN: Hier wird eine Nachricht ausgegeben, 
wenn der Benutzer ein Gadget aussucht, daß mit gesetztem 
GADGIMMEDIATE-Flag erstellt wurde. 

GADGETUP: Wie oben, jedoch für Gadgets, die mit 
RELVERIFY erstellt wurden. 

CLOSEWINDOW: Intuition sendet Ihnen eine Nachricht 
wenn das CloseWindow-Gadget ausgesucht wurde 
(man/frau beachte: Intuition schließt Ihr Window nicht; es 
sendet nur eine Nachricht!). 

NEWSIZE: Bei diesem Flag gesetzt erhalten Sie eine 
Nachricht, wenn der Benutzer die Größe des Windows 
verändert hat. 

REFRESHWINDOW: Hier erhält Ihr Programm eine 
Nachricht, wenn Intuition der Meinung ist, daß Ihr Win¬ 
dow wieder erneuert werden muß. Dieses Flag ergibt nur 

Sinn für Windows vom Typ SIMPLE_REFRESH und 

SMART REFRESH. 
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NEWPREFS: Ihr Programm erhält von Intuition eine 
Nachricht, wenn die Preferences vom Benutzer geändert 
wurden. Anbei: Jedes Programm, daß dieses Flag gesetzt 
hat, bekommt eine Nachricht - nicht nur das aktive Pro¬ 
gramm. 

DISKINSERTED und DISKREMOVED: Sollte der Benut¬ 
zer eine Disk in irgendein Drive rein- oder rausschieben, 
so erhält Ihr Programm ein Signal zugesandt. Anmerkung: 
Wie bei NEWPREFS erhält jedes geeignete Programm ein 
Signal. 

In unserem Programm wird das IDCMP-Flag CLOSEWINDOW 
gesetzt, da wir ganz gerne wissen wollen, wann der Benutzer das 
CloseWindow-Gadget gedrückt hat. 

Flags: Hier werden verschiedene Feinheiten des Fensters 
beschrieben, z.B. welche System-Gadgets vorhanden sein sollen, 
wie das Fenster von Intuition verwaltet werden soll (bes. wann 
es aufgefrischt werden soll), ob es sofort aktiv sein soll, etc., 
etc. Dazu können folgende Flags gesetzt werden: 

WINDOWSIZING: Versieht das Window mit dem Gadget, mit 
dem der Benutzer die Größe des Windows festlegen kann. 

WINDOWDEPTH: Mit diesem Flag kann ein Fenster mit dem 
Gadget versehen werden, mit dem man bei übereinandergelegten 
Windows ein Window nach vorne bzw. hinten legen kann. 

WINDOWCLOSE: Fügt das WindowClose-Gadget hinzu. 

WINDOWDRAG: Bewirkt, daß die gesamte Title-Leiste des 
Windows in das Gadget verwandelt wird mit dem man das Win¬ 
dow auf dem Screen hin und her bewegen kann. 

GIMMEZEROZERO: Setzen Sie dieses Flag, wenn Sie ein Gim- 
mezerozero-Window haben wollen. Bei diesem Windowtyp wird 
das Window in zwei Teile geteilt: In das eigentliche Window und 
in den gesamten Kram, wie Title-Leiste, Gadgets und Grenzen. 
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Dadurch wird gewährleistet, daß nur das eigentliche Window 
beschrieben werden kann, und der Rest von allen Grafik-Aktio¬ 
nen unberührt bleibt. Dieser Window-Typ verbraucht allerdings 
etwas mehr RAM. 

SIMPLE_REFRESH: Ist dieses Flag gesetzt, so muß sich das 
Programm selbst darum kümmern, ob und wie es Teile erneuern 
will, wenn diese zum Beispiel durch andere Screens überdeckt 
wurden. 

Ein Beispiel für diese Art des Windows ist das Programm Dots 
in der Schublade Demos auf der Workbench-Disk. 

SMART_REFRESH: Hier kümmert sich Intuition automatisch 
um das Window. Wird es überlagert, so bringt Intuition den 
überlagerten Bereich in Sicherheit, und kopiert ihn nachher wie¬ 
der zurück. Intuition scheitert nur, wenn der Benutzer die Größe 
des Windows verändert. Dann muß das Programm selbst ein- 
schreiten. Beispiele hierfür sind die Windows bei dem Programm 
Boxes in der Demoschublade, sowie die CLI-Windows. 

SUPER_BITMAP: Dieses ist die speicheraufwendigste, jedoch 
auch die schönste Methode. Hierbei wird eine große Bitmap 
initialisiert und das Window stellt immer einen Teil davon da, je 
nach Größe des Windows. Ein Beispiel dafür ist das Programm 
Lines in der Schublade Demos. Verändern Sie die Größe des 
Windows einmal; jetzt sehen Sie, daß das ursprüngliche Window 
nur ein Teil eines riesigen Ganzen ist. Das Programm beschreibt 
immer die ganze Bitmap; Intuition stellt immer nur einen vom 
Benutzer ausgewählten Bereich dar. 

BACKDROP: Macht das Window zu einem Fenster, das immer 
hinter allen anderen Fenstern liegt. Dabei ist egal, wann diese 
Fenster eröffnet werden, und ob sie vom Benutzer mittels der 
Gadgets nach hinten gelegt werden. 

REPORTMOUSE: Setzen Sie dieses Flag, wenn Sie die Mouse- 
koordinaten erhalten wollen. 
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BORDERLESS: Sorgt dafür, daß das Window ohne Ränder 
erscheint. 

ACTIVATE: Sollte dieses Flag gesetzt sein, so wird Ihr Window 
sofort aktiv, sobald es geöffnet ist. Beachten Sie, wenn Sie dieses 
Flag setzen, daß dadurch unter Umständen die Eingaben des 
Benutzers umgeleitet werden können! 

NOCAREREFRESH: Ist dieses Flag gesetzt, so sendet Intuition 
Ihnen keine Nachricht, wann das Window erneuert werden soll. 

RMBTRAP: Setzen Sie dieses Flag, wenn Sie keine Menüopera¬ 
tionen haben wollen. Drückt der Benutzer jetzt die rechte 
Maustaste, so erhält Ihr Programm ein normales MOUSEBUT- 
TON-Signal. 

Wir wollten alle System-Gadgets, und die Methode 
SMARTREFRESH. 

FirstGadget: Zeiger auf die Gadget-Struktur des ersten eigenen 
Gadgets, mit dem Sie das Window versehen wollen. 

CheckMark: Zeiger auf die Image-Struktur des Zeichens, mit 
dem vom Benutzer ausgewählte Menüpunkte versehen werden 
sollen. Wollen Sie das Standard-Zeichen, so setzen Sie den Zei¬ 
ger auf NULL. 

Title: Titel des Winows. NULL, wenn Sie keinen Titel haben 
wollen. 

Screen: Zeiger auf die Screen-Struktur des Screens, in dem die¬ 
ses Window erscheinen soll. NULL, falls ein Standard-Screen 
(zum Beispiel Workbench-Screen) erwünscht ist. 

BitMap: Zeiger auf eine BitMap-Struktur, falls 

SUPER_BITMAP gesetzt wurde. 

MinWidth, MinHeight: Geben die Ausdehnung in Pixel an, die 
das Window mindestens haben sollte. Werden nur beachtet, wenn 
das WINDOSIZING-Flag gesetzt wurde. 
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MaxWidth, MaxHeight: Maximale Größe des Windows. Auch 
diese beiden Komponenten werden nur beachtet, wenn das 
WINDOWSIZING-Flag gesetzt wurde. 

Type: Art des Screens, in dem das Window eröffnet werden soll. 
Momentan verfügbar sind folgende Flags: 

WBENCHSCREEN: für Workbench-Screen 
CUSTOMSCREEN: für eigenen Screens 

Da wir einen eigenen Screen haben, wird in Zeile 60 diese 
Komponente auf CUSTOMSCREEN gesetzt. 

So, damit wäre die NewWindow-Struktur geschafft. Nachdem 
alle Werte ordnungsgemäß eingespeichert worden sind, wird das 
Window mittels des Intuition-Befehls OpenWindow eröffnet. 
OpenWindow erwartet als Argument die Adresse einer NewWin¬ 
dow-Struktur. 

Ist alles zur Zufriedenheit von Intuition abgelaufen, wird ein 
Zeiger auf eine Window-Struktur zurückgegeben. Ist irgendetwas 
Merkwürdiges geschehen, wird Null an den Aufrufer gegeben. 
Meistens wird das Programm dann eine entsprechende Meldung 
ausgeben und den Ablauf beenden. So auch unsere Demo. 

Die Window-Struktur enthält folgendes: 

NextWindow: Zeiger auf die Window-Struktur eines weiteren 
Windows innerhalb dieses Screens. Dadurch sind alle Windows 
miteinander verbunden. 

LeftEdge, TopEdge, Width, Height: Ausmaße und Lage des Win¬ 
dows. 

MouseY, MouseX: Koordinaten der Maus 

MinWidth, MinHeight, MaxWidth, MaxHeight: Minimale bzw. 
maximale Ausdehnung des Fensters. 
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Flags: siehe NewWindow.Flags 

MenuStrip: Zeiger auf die Menü-Struktur des ersten Menüs. 
Title: Titel des Windows. 

FirstRequester: Zeiger auf die Requester-Struktur des ersten 
Requesters für dieses Window. 

DMRequest: Zeiger auf die Requester-Struktur der ersten Dou- 
ble-click-Requesters für dieses Window. 

ReqCount: Zähler für die Anzahl der Requester, die dieses Win¬ 
dow blockieren. 

WScreen: Zeiger auf die Screen-Struktur dieses Screens. 

RPort: Zeiger auf die RastPort-Struktur für dieses Window. 

BorderLeft, BorderTop, BorderRight, BorderBottom: Beschreiben 
Aussehen des Randes. 

BorderRPort: Zeiger auf RastPort-Struktur des Randes. 

FirstGadget: Zeiger auf Gadget-Struktur des ersten Gadgets für 
dieses Window. 

Parent, Descendant: Werden von Intuition beim Öffnen bzw. 
Schließen von Windows benutzt. 

Pointer: Zeiger auf die Sprite-Datas für den Mauszeiger. 

PtrHeight, PtrWidth: Höhe & Weite des Mauszeigers. Die Weite 
darf nicht größer als 16 sein. 

XOffset, YOffset: Sprite-Offsets 

IDCMPFlags: Hier kommen die Signale rein, die irgendwelche 
Aktionen des Benutzers anzeigen. 
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UserPort, WindowPort: Zeiger auf MsgPort-Strukturen. Diese 
Ports dienen zur Übertragung von Daten und werden in einem 
späteren Kapitel noch genauer beschrieben. 

MessageKey: Zeiger auf IntuiMessage-Struktur. Dient zum 
Übertragen von Intuition-Messages. 

DetailPen, BlockPen: wie üblich 

CheckMark: Zeiger auf Image-Struktur, die das Zeichen 
beschreibt, mit dem ausgewählte Menüpunkte abgehakt werden. 
Ist dieser Zeiger auf NULL gesetzt, wird das Standard¬ 
zeichen (der Haken) benutzt. 

ScreenTitle: Namen, den der Screen erhält, wenn dieses Window 
aktiv ist. 

GZZMouseX, GZZMouseY: Koordinaten der Maus bei Gimme- 
zerozero-Windows. 

GZZWidth, GZZHeight: Geben die Größe des wirklichen Win¬ 
dows bei Gzz-Windows an. 

ExtData: ??? 

UserData: Zeiger auf irgendwelche Daten, die der Benutzer für 
wichtig hält. 

WLayer: Zeiger auf Layer-Struktur für dieses Window. Enthält 
den gleichen Wert wie RPort->Layer innerhalb der Window- 
Struktur. 

So, damit wären die benötigten Strukturen beendet. Weiter geht’s 
in Zeile 71. Der Wait-Befehl setzt den Task in den Wartezu¬ 
stand. In diesem Fall wartet der Task einfach darauf, daß 
irgendein Signal am Userport angelegt wird. Da wir innerhalb 
der NewWindow-Struktur nur ein Signal angelegt haben (CLO- 
SEWINDOW in Zeile 50), kann auch nur dieser Fall eingetreten 
sein: Der Benutzer hat das Closewindow-Gadget angeklickt. 
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Um den Speicherplatz wieder freizugeben, werden daraufhin das 
Window, der Screen und die Intuition-Library geschlossen. 
Schließlich wird das Programm beendet. 

Alles klar? Gut, dann probieren Sie ein bißchen herum, indem 
Sie einige Werte verändern, und dann das ganze noch einmal 
compilieren, linken und laufen lassen. Schauen Sie sich dazu am 
besten noch einmal die obigen Erklärungen zu den vier Struk¬ 
turen NewScreen, Screen, NewWindow und Window an. 

Kommen wir zum nächsten Programm. Mit diesem wollen wir 
Ihnen zeigen, wie man einfach und dennoch effektiv einfache 
Grafikanwendungen programmieren kann. Zuerst einmal das 
Programm: 

tfinclude <exec/types. h> 
tfinclude <intuition/intuition. h> 


struct IntuitionBase *IntuitionBase; 
struct GfxBase *GfxBase; 


rnain () 

{ 

struct Screen *Screen; 
struct Window *Window; 
struct NewScreen NewScreen; 
struct NewWindow NewWindow; 
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IntuitionBase = (struct IntuitionBase *) 

OpenLibrary ("intuition.library", 0) 

> 

if (IntuitionBase == NULL) 

{ 

printf ("Ups? Wo ist die Intuition-Library?\n"); 
exit (FALSE); 


GfxBase = (struct GfxBase *) OpenLibrary ("graphics. libra 
ry", 0); 

if (GfxBase == NULL) 

{ 

printf ("Hey, was macht die Grafik-Library?\n"); 
exit (FALSE); 

} 


NewScreen.LeftEdge = 0; NewScreen.TopEdge = 0; 
NewScreen.Width = 320; NewScreen.Height = 200; 
NewScreen.Depth = 2; 

NewScreen.BetailPen = 0; NewScreen.BlockPen = 1; 
NewScreen.ViewModes = NULL; 

NewScreen.Type = CUSTOMSCREEN; 

NewScreen.Font = NULL; 

NewScreen.DefaultTitle = NULL; 

NewScreen,Gadgets = NULL; 

NewScreen.CustomBitMap = NULL; 

Screen = (struct Screen *) OpenScreen (&NewScreen); 
if (Screen == NULL) 

{ 

printf ("Screen laesst sich nicht oeffnen!IJ\n"); 
exit (FALSE); 

} 
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NewWindow.LeftEdge = 0; 

NewWindow. TopEdge = 0; 

NewWindow. Width = 320; 

NewWindow.Height = 200; 

NewWindow.DetailPen = 0; 

NewWindow.BlockPen = 1; 

NewWindow.IDCMPFlags = NULL; 

NewWindow.Flags = SMART_REFRESH | BACKDROP \ BORDERLESS | 
ACTIVATE ! 

NOCAREREFRESH; 

NewWindow.FirstGadget = NULL; 

NewWindow.CheckMark = NULL; 

NewWindow.Title = NULL; 

NewWindow.Screen = Screen; 

NewWindow.BitMap = NULL; 

NewWindow.MinWidth = NULL; 

NewWindow. MinHeight = NULL; 

NewWindow.MaxWidth = NULL; 

NewWindow. MaxHeight = NULL; 

NewWindow.Type = CUSTOMSCREEN; 

Window = (struct Window *) OpenWindow (&NewWindow); 
if (Window == NULL) 

{ 

printf ("Probleme mit dem Window...\n"); 
exit (FALSE); 

} 


ShowTitle (Screen, FALSE); 


Move (Window->RPort, 160, 100); 

Window->MouseX = 160; Window->MouseY = 100; 

while ((Window->MouseX != 0) |{ (Window->MouseY != 0)) 

Draw (Window->RPort, Window->MouseX, Window->MouseY); 


CloseWindow (Window); 
CloseScreen (Screen); 
CloseLibrary (GfxBase); 
CloseLibrary (IntuitionBase); 
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Nachdem Sie es zum Ausführen gebracht haben, können Sie mit 
der Maus auf dem Bildschirm malen. Hat keinen sehr großen 
Sinn, ist aber sehr gut zum Erklären. Das Programm ist dem 
vorhergehenden recht ähnlich. Es wird jedoch noch eine weitere 
Library eröffnet: die Grafik-Library. Dies geschieht in den 
Zeilen 26-31. Das Öffnen dieser Library geschieht ähnlich dem 
Öffnen der Intuition-Library, und braucht daher nicht weiter 
beschrieben zu werden. 

Auch das Öffnen des Screens dürfte Ihnen jetzt klar sein. Wir 
haben diesmal allerdings die kleinere Auflösung von 320 * 200 
Bildschirmpunkten gewählt. 

Beim Window ist doch einiges anders geworden. Es wurden 
einige besondere Attribute gesetzt. Unser Window hat keine 
Ränder (BORDERLESS) und ist immer hinter allen anderen 
Windows (BACKDROP). Dadurch wirkt das Window fast wie 
ein Screen. Im Gegensatz zum Screen hat dieses Window jedoch 
einen entscheidenden Vorteil: Grafik-Befehle wirken sich immer 
noch auf die Bitmap des Windows aus, und nicht auf die Bitmap 
des Screens. Dadurch ist zum Beispiel gewährleistet, daß die 
Grafikbefehle keine anderen Windows überschreiben. Außerdem 
ist dadurch auch gewährleistet, daß keine anderen Windows die 
Grafiken einfach auslöschen können (das Window ist vom Typ 
SMART_REFRESH). Fazit: Grafikprogrammierung ist genauso 
effektiv wie die Low-Level-Grafikprogrammierung; jedoch viel 
einfacher, da man nicht auf so viele Fälle achten muß. 

Der ShowTitle-Befehl in Zeile 81 sorgt dafür, daß die Titel- 
Zeile des Screens verschwindet. Und dann kommt ein Grafik- 
Befehl: Move. Dieser Befehl bewegt den Grafik-Zeiger auf die 
angegebenen Koordinaten. Als erstes Argument benötigt dieser 
Befehl einen Zeiger auf die RastPort-Struktur, in der der Gra¬ 
fik-Befehl seine Wirkung zeigen soll. Würden Sie hier den Rast- 
Port des Screens angeben, so würde der Grafik-Zeiger für den 
Screen-Rastport bewegt werden. 
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In der Zeile 88 wird geschaut, ob der Maus-Zeiger in die linke 
obere Ecke des Bildschirms bewegt wurde. Ist dies nicht der 
Fall, wird eine Linie von dem Punkt, wo sich der Grafik-Zeiger 
zuletzt befand, bis zu den aktuellen Maus-Koordinaten gezogen. 

Bevor das Programm beendet wird, muß in den Zeilen 94-97 
wieder alles geschlossen werden. 


3.3.2 Routinen mit Intuition-Strukturen und -Funktionen 

Hier finden Sie einige nützliche Routinen mit Intuition-Struk¬ 
turen und Intuition-Funktionen. Die benötigten Strukturen wer¬ 
den direkt anhand der Listings erklärt. 


3.3.2.1 FindScreen 

Diese Routine besorgt Ihnen einen Zeiger auf die Screen-Struk- 
tur zu einem bestimmten Screen. Wollen Sie die Screen-Struktur 
des gerade aktiven Screens, so geben Sie der Routine als Argu¬ 
ment eine 0. Wollen Sie die Screen-Struktur zu einem beliebigen 
Screen, so müssen Sie den Namen dieses Screens angeben. 

Hier das Listing der Routine FindScreen. Zur Demonstration 
gleich mit einem Hauptprogramm: 

tfinclude <exec/types. h> 
tfinclude <intuition/intuition. h> 


struct IntuitionBase *IntuitionBase; 


struct Screen ^FindScreen (narae) 
char narae[]; 

{ 

struct Screen *screen; 
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if (name == (char) 0) 

return (IntuitionBase->ActiveScreen); 


screen = IntuitionBase->ActiveScreen; 

while (screen->NextScreen 1= 0) 

{ 

if (screen->Title == name) 
return (screen); 

screen = screen->NextScreen; 

> 

return (0); 

} 


main () 

{ 

struct Screen *screen; 


IntuitionBase = (struct IntuitionBase *) 


OpenLibrary ("intuition.library", 0) 

} 

if (IntuitionBase == NULL) 

{ 

printf ("Sorry, keine Intuition-Library fuer Dich.\n M ) 
exit (FALSE); 

} 


screen = FindScreen (0); 


if ((screen->Flags && WBENCHSCREEN) != NULL) 

printf ("Der aktive Screen ist der Workbench-Screen!i! 
\n"); 

eise printf ("Hm, irgendwas ist schief gelaufen...\n"); 
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#ifndef INTUITION_INTUITIONBASE_H 
#define INTUITION_INTUITIONBASE_H 1 


/*** intuitionbase, h *************************************** 
* 

* the IntuitionBase structure and supporting structures 

* 

* Modification History 

* date : author : Comments 

* - - - 


* 3-1-85 -=RJ=- created this filei 

* 

Mit unserem Lattice-Compiler V3.03 ließ sich dieses Programm 
nicht ordnungsgemäß compilieren. Der Compiler meldete, daß 
die Struktur IntuitionBase keine Komponente namens Active- 
Screen besitzt. Ein Blick in das Headerfile intui- 
tion/intuitionbase.h ergab, daß die Struktur IntuitionBase 
tatsächlich nur die Komponente LibNode besaß. Nachdem wir 
das Headerfile jedoch so umgeändert hatten, wie es in dem 
ROM Kernel Manual Volume II zu finden ist, lief alles an¬ 
standslos. Falls also dieser Fehler bei Ihnen auch auftreten sollte, 
ändern Sie Ihr Headerfile so ab, daß es ungefähr dieses Ausse¬ 
hen hat: 
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#ifndef EXEC_LIBRARIES_H 
ttinclude “exec/libraries. h" 
tfendif 

itifndef GRAPHICS„VIEW_H 
#include ''graphics/view. h” 
tfendif 

/* 

* Be sure to protect yourself against someone modifying the 
se data as 

* you look at thero. This is done by calling: 

* 

* lock = LocklBase(0), which returns a ULONG. When done cal 
1 

* UnlocklBase (lock) where lock is what LocklBase() returne 
d. 

* 

* NOTE: these libraries functions are sirnply stubs now, but 
should be 

* called to be compatible with future releases. 


*/ 


/* ==:=:=r::=::=::::rr===z = 

=============== */ 

/* = = = IntuitionBase ====== 

=============== */ 

/* ======================== 

=============== */ 

struct IntuitionBase 

{ 

struct Library LibNode; 
struct View ViewLord; 


struct Window *ActiveWindow; 
struct Screen *ActiveScreen; 
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/* the FirstScreen variable points to the frontmost Screen. 
Screens are 

* then raaintained in a front to back order using Screen.Nex 
tScreen 
*/ 

struct Screen ^FirstScreen; /* for* linked list of all sc 
reens */ 

}; 


tfendif 

So, und jetzt zu dem Programm. Das ganze Programm beruht 
auf der Struktur IntuitionBase. Diese Struktur enthält folgende 
Komponenten: 

LibNode: Eine Struktur vom Typ Library. 

ViewLord: Eine View-Struktur. 

ActiveWindow: Ein Zeiger auf die Window-Struktur des gerade 
aktiven Windows. 

ActiveScreen: Ein Zeiger auf die Screen-Struktur des gerade 
aktiven Screens. 

FirstScreen: Ein Zeiger auf die Screen-Struktur des vordersten 
Screens. 

Ist das Argument für FindScreen gleich 0, so gibt die Routine 
einfach den Inhalt von ActiveScreen an den Aufrufer zurück, da 
ja anscheinend die Screen-Structur des gerade aktiven Screens 
gefragt war. Wurde als Argument jedoch ein Name übergeben, 
geht FindScreen alle Screens, die ja durch die Komponente 
NextScreen innerhalb der Screen-Struktur miteinander verbun¬ 
den sind, durch, bis es den Screen mit dem Namen findet. 

Ist kein Screen mit diesem Namen zu finden, so gibt FindScreen 
eine 0 zurück, und der Aufrufer weiß, daß etwas nicht ganz 
geklappt hat. In main wird FindTask einmal kurz demonstriert. 
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3.3.2.2 FindWindow 

Hier die gleiche Routine wie oben - diesmal jedoch für Win¬ 
dows statt für Screens. 


tfinclude <exec/types. h> 
tfinclude <intuition/intuition. h> 


struct IntuitionBase *IntuitionBase; 


struct Window ^FindWindow (narae) 
char name[]; 

{ 

struct Window *window; 


if (name == (char) 0) 

return (IntuitionBase->ActiveWindow); 


window = IntuitionBase->ActiveWindow; 

while (window->NextWindow !- 0) 

{ 

if (window->Title == narae) 
return (window); 

window = window->NextWindow; 


return (0); 


main () 

{ 

struct Window *window; 


IntuitionBase 


(struct IntuitionBase *) 
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OpenLibrary ("Intuition.library", 0) 

if (IntuitionBase == NULL) 

{ 

printf ("Sorry, keine Intuition-Library fuer Dich.\n") 
exit (FALSE); 

> 


window = FindWindow (0); 

printf ("Name des aktiven Screens: %s\n", window->Title); 


window = FindWindow ( “Gonso" ) 
if (window == 0) 

printf ("Gonso ist verschollen. . . \n") ; 
eise printf ("Bitte? Gonso ist bei Ihnen? Sofort melden!\ 
n"); 


CloseLibrary (IntuitionBase); 

} 

Da das Programm dem obrigen absolut ähnlich ist, braucht es 
wohl nicht näher erläutert zu werden. 


3.3.2.3 MoveScreen, MoveWindow u.a. Intuition-Routinen 

Die Intuition-Library enthält zahlreiche sehr interessante Routi¬ 
nen. Eine davon ist MoveScreen. Wie Sie vielleicht schon am 
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Namen erkannt haben, läßt sich damit ein Screen verschieben. 
Die Funktion hat folgenden Syntax: 

MoveScreen (screen, dx, dy) 

Das Argument Screen ist ein Zeiger auf die Screen-Struktur des 
Screens, der verschoben werden soll. Die Anzahl der Pixel, um 
die verschoben werden soll, ist in dx und dy zu finden. Zur Zeit 
ist jedoch eine Verschiebung des Screens in X-Richtung nicht 
möglich; folglich wird auch die dx-Variable nicht berücksichtigt. 
Geben Sie am besten immer 0 dafür an, damit Ihr Programm 
auch auf weiteren Versionen noch läuft. 

Hier ein kleines Programm, das eine Anwendung des Move- 
Screen-Befehls zeigt: 

ttinclude <exec/types. h> 
tfinclude <intuition/intuition. h> 


struct IntuitionBase *IntuitionBase; 
struct GfxBase *GfxBase; 


void PrintText (RPort, string, x, y) 
struct RastPort *RPort; 
char string[]; 

LONG x, y; 

{ 

Move (RPort, x, y) ; 

Text (RPort, string, strlen (string)); 

} 
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void Text__Ausgabe (RPort) 

struct RastPort *RPort; 

{ 

PrintText (RPort, "Hier sehen Sie ein kleines Demo.", 150 

, 10 ); 

PrintText (RPort, "Es wird demonstriert, wie man mit weni 
gen Befehlen", 60, 40); 

PrintText (RPort, "einen Scroll-Effekt erzielen kann.", 6 
0, 60); 

PrintText (RPort, "Setzen Sie dieses in Ihren eigenen Pro 
grammen ein,", 60, 80); 

PrintText (RPort, "und Sie werden dieses Programm merklic 
h aufbessern.", 60, 100); 

PrintText (RPort, "Es gruesst recht herzlich", 100, 130); 

PrintText (RPort, "Horny", 150, 150); 

PrintText (RPort, "P.S.: Gruesse auch an Lotta, Gonzo, Do 
pe & Team 3!!!", 30, 180); 


main() 

{ 

struct Screen *Screen; 
struct Window *Window; 
struct NewScreen NewScreen; 
struct NewWindow NewWindow; 
UCOUNT zaehler; 


IntuitionBase = (struct IntuitionBase *) 

OpenLibrary ("intuition.library", 0) 

if (IntuitionBase == NULL) 

{ 

printf ("Ich kann leider die Intuition-Library nicht f 
inden. \n"); 

exit (FALSE); 

} 
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GfxBase = (struct GfxBase *) OpenLibrary (“graphics. libra 

ry“, 0); 

if (GfxBase == NULL) 

{ 

printf (“Ich kann leider die Grafik-Bibliothek nicht f 
inden. \n“); 

exit (FALSE); 

} 


NewScreen.LeftEdge = 0; NewScreen.TopEdge = 0; 

NewScreen. Width = 640; NewScreen.Height = 200; 

NewScreen.Depth = 2; 

NewScreen.DetailPen = 0; NewScreen. BlockPen = 1; 
NewScreen.ViewModes = HIRES; 

NewScreen.Type = CUSTOMSCREEN; 

NewScreen.Font = NULL; 

NewScreen.DefaultTitle = NULL; 

NewScreen.Gadgets = NULL; 

NewScreen.CustoraBitMap = NULL; 

Screen = (struct Screen *) OpenScreen (&NewScreen); 
if (Screen == NULL) 

{ 

printf (“Ich kann leider den Screen nicht oeffnen.\n“) 
exit (FALSE); 

} 




240 


AMIGA Tivs & Tricks 


NewWindow. LeftEdge = 0; 

NewWindow. TopEdge = 0; 

NewWindow. Width = 640; 

NewWindow.Height = 200; 

NewWindow. DetailPen = 0; 

NewWindow.BlockPen - 1; 

NewWindow. IDCMPFlags = NULL; 

NewWindow.Flags = SMARTJREFRESH ! BACKDROP { BORDERLESS j 
ACTIVATE | 

NOCAREREFRESH; 

NewWindow. FirstGadget = NULL; 

NewWindow. CheckMark = NÜLL; 

NewWindow.Title - NULL; 

NewWindow.Screen = Screen; 

NewWindow. BitMap = NÜLL; 

NewWindow. MinWidth - NULL; 

NewWindow.MinHeight = NÜLL; 

NewWindow. MaxWidth - NÜLL; 

NewWindow. MaxHeight = NULL; 

NewWindow.Type = CUSTOMSCREEN; 

Window = (struct Window *) OpenWindow (&NewWindow) ; 
if (Window == NÜLL) 

{ 

printf (“Ich kann leider das Window nicht oeffnen.\n") 
exit (FALSE); 

} 


ShowTitle (Screen, FALSE); 


MoveScreen (Screen, 0, 200); 

Text„Ausgabe (Window->RPort); 

for (zaehler = 0; saehler < 200; zaehler++) 
MoveScreen (Screen, 0, -1); 

Delay (200); 


CloseWindow (Window); 
CloseScreen (Screen); 
CloseLibrary (GfxBase); 
CloseLibrary (IntuitionBase); 
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Innerhalb von main verläuft zuerst einmal alles wie gewohnt. Es 
wird die Intuition- sowie die Grafik-Library eröffnet. Danach 
wird ein Screen und ein Window innerhalb dieses Screens eröff¬ 
net. In Zeile 112 tritt die sagenhafte Funktion MoveScreen 
schließlich auf. Mit MoveScreen (0, 200) wird der Screen um 
200 Pixel nach unten verschoben. Da der Screen nur 200 Pixel 
hoch ist, verschwindet er damit vom Bildschirm. 

In Zeile 115 wird die Funktion Text_Ausgabe aufgerufen. Diese 

ist in den Zeilen 20 - 31 zu finden. Diese Routine benutzt eine 
andere Routine: PrintText. PrintText ist in den Zeilen 10-17 
zu finden. Mit PrintText kann ein Text auf einem bestimmten 
Rastport ausgegeben werden. PrintText benötigt vier Argumente: 

RPort: Zeiger auf die RastPort-Struktur, in der der Text 

erscheinen soll. 

String: Auszugebener String 

X, Y: Koordinaten, an denen der String ausgegeben werden 

soll. 

PrintText benutzt zwei Grafik-Funktionen: Move und Text. Mit 
Move wird der Grafik-Pointer an eine bestimmte Stelle inner¬ 
halb eines bestimmten Rastports gesetzt. Die Funktion Text gibt 
schließlich den gewünschten Text aus. Text verlangt drei Argu¬ 
mente. 

1. Einen Zeiger auf die Rastport-Struktur. 

2. Den auszugebenen Text. 

3. Die Länge des auszugebenden Textes. 

Die Länge des auszugebenden Textes wird in unserem Programm 
mittels der C-Funktion strlen bestimmt. 

Nachdem der Text in das Window geschrieben wurde, wird der 
Screen wieder nach oben geholt. Dies geschieht in den Zeilen 
118/119. Hier wird 200 mal der Befehl "MoveScreen (Screen, 0, 
-1)" ausgeführt. Dadurch wird der Screen 200 mal um einen Pi- 
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xel nach oben verschoben. Danach ist er wieder auf seinem alten 
Platz; das Programm wartet noch einmal ca. 4 Sekunden, schließt 
dann alles wieder ordnungsgemäß und verabschiedet sich. 

Es gibt auch eine entsprechende Funktion für Windows: Mo- 
veWindow. Der Syntax und die Wirkungsweise ist ähnlich wie 
bei MoveScreen - nur wird hier ein Window verschoben, und so 
muß auch ein Zeiger auf eine Window-Struktur übergeben wer¬ 
den. In dem Zusammenhang seien noch acht weitere Intuition- 
Routinen erwähnt: 


SetWindowTitles: 


Syntax: 

Window: 

WindowTitle: 


ScreenTitle: 


SetWindowTitles (Window, WindowTitle, Screen¬ 
Title) 

Zeiger auf Window-Struktur 
Zeiger auf String, der der neue Titel des Windows 
sein soll. Bei 0 kein Titel, und bei -1 bleibt der 
alte Titel. 

wie oben, jedoch für Screentitel 


SizeWindow: 


Syntax: SizeWindow (Window, dx, dy) 

Window: Zeiger auf Window-Struktur 

dx, dy: Anzahl der Pixel, um die das Window in X- bzw. 

Y-Richtung vergrößert oder verkleinert werden 
soll. 


O penWorkBench : 

Syntax: success = OpenWorkBench () 

success: TRUE, wenn alles glatt ging; FALSE, wenn ein 

Fehler auftauchte. Eröffnet den Workbench- 
Screen, falls noch nicht offen. 
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CloseWorkBench: 

Syntax: success = CloseWorkBench () 

success: siehe oben, schließt den Workbench-Screen, falls 

noch offen. 


WBenchToBack: 

Syntax: success = WBenchToBack () 

success: siehe oben, bringt den Workbench-Screen hinter 

alle anderen Screens. 


WBenchToFront: 

Syntax: success = WBenchToFront () 

success: siehe oben, bringt den Workbench-Screen vor alle 

anderen Screens. 


WindowToBack: 

Syntax: WindowToBack (Window) 

Window: Zeiger auf die Window-Struktur des Windows, das 

hinter alle anderen Windows auf dem aktuellen 
Screen gebracht werden soll. 


WindowT oFront: 

Syntax: WindowToFront (Window) 

Window: Zeiger auf die Window-Struktur für das Window, 

das vor alle anderen Windows gebracht werden 
soll. 



244 


AMIGA Tios & Tricks 


3.3.2.4 DisplayBeep oder wie lasse ich Screens blinken 

Bei den meisten Computern gibt es einen CHR$-Wert, der einen 
sehr interessanten Effekt bewirkt. Das ist CHR$(7) und er gibt 
einen Ton über die Lautsprecher aus. 

Der Amiga besitzt eine Intuition-Funktion, die eine ähnliche 
Wirkung zeigt. Das ist die Funktion DisplayBeep. DisplayBeep 
benötigt ein Argument. Dieses Argument muß ein Zeiger auf die 
Screen-Struktur des Screens sein, der blinken soll. Ist dieses 
Argument 0, so läßt Intuition alle Screens einmal aufblinken. 

Schauen Sie sich einmal diese kurze Demo an: 


tfinclude <exec/types. h> 
tfinclude <intuition/intuition. h> 


struct IntuitionBase *IntuitionBase; 


main () 

{ 

int wert; 


IntuitionBase = (struct IntuitionBase *) 

OpenLibrary (“intuition.library", 0) 

if (IntuitionBase == NULL) 

{ 

printf ("Keine Intuition-Library, also kein Programm. \ 

n"); 

exit (FALSE); 

} 
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printf ("Geben Sie einen Wert von 0 - 10 ein: "); 
scanf ("%d", &wert); 

if ((wert < 0) {| (wert > 10)) 

{ 

DisplayBeep (IntuitionBase->ActiveScreen); 

printf ("Wert nicht in den angegebenen Grenzen!!!\n"); 

} 

eise 

printf ("Das Quadrat von %d ist ungefaehr %d.\n“, wert 
, wert*wert); 


CloseLibrary (IntuitionBase); 

} 


Ist der eingegebene Wert nicht in den angegebenen Grenzen, so 
macht Intuition den Benutzer mittels DisplayBeep sofort darauf 
aufmerksam. DisplayBeep sollte immer dort eingesetzt werden, 
wo die es nicht reicht, die Aufmerksamkeit des Benutzers durch 
normale Textausgabe zu erregen, und wo ein Alert zu viel wäre. 

Weitere denkbare Anwendungen für DisplayBeep wären zum 
Beispiel, den Screen am Ende eines zeitintensiven Programmes 
blinken zu lassen oder wenn bei einem Terminal-Programm eine 
Nachricht eingegangen ist. 


3.3.3 Keine graue Maus mehr 

Haben Sie immer noch den normalen Mauspointer? Den roten 
Pfeil? Oder haben Sie schon mit Preferences einen eigenen 
Mauszeiger konstruiert? Einen Luftballon? Ein Fadenkreuz? 
Wahrscheinlich. 

Doch nicht nur der Benutzer ändert den Mauszeiger. Oft ist es 
auch recht sinnvoll und nett anzusehen, wenn ein Programm 
einen individuellen Zeiger besitzt. Denken Sie zum Beispiel an 
Graphicraft & Texteraft. 
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Ändern kann man den Mauszeiger recht einfach. Die Intuition- 
Library verfügt nämlich über einen Befehl, der genau dieses 
vollführt: SetPointer. 

Zeigen wir die Funktion wieder anhand eines Beispiels: 


ttinclude <exec/types . h> 
tfinclude <exec/meraory. h> 
ttinclude <intuition/intuition.h> 


struct IntuitionBase *IntuitionBase; 
struct GfxBase *GfxBase; 


UWORD spritedata[] = 

{ 

0 , 0 , 

Oxffff, Oxffff, 
Oxffff, Oxffff, 
Oxffff, Oxffff, 
0x0000, Oxffff, 
0x0000, Oxffff, 
0x0000, Oxffff, 
Oxffff, 0x0000, 
Oxffff, 0x0000, 
Oxffff, 0x0000, 

0 , 0 
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roain () 

{ 

struct Screen *Screen; 
struct Window *Window; 


IntuitionBase = (struct IntuitionBase *) 

OpenLibrary ("Intuition.library", 0) 

’if (IntuitionBase*== NOLL) 

{ 

printf ("Was soll ich machen? Keine Intuition-Library! 

\n”); 

exit (FALSE); 


} 

GfxBase = (struct GfxBase *) OpenLibrary ('’graphics. libra 
ry", 0); 

if (GfxBase == NULL) 

{ 

printf ("Und nun? Ich kann die Graphics-Library nicht 
finden!\n”); 

CloseLibrary (IntuitionBase); 
exit (FALSE); 

> 


Screen = IntuitionBase*>ActiveScreen; 
Window = IntuitionBase->ActiveWindow; 


SetPointer (Window, sprltedata, 

, 9, 

16, 

-7, -5); 

SetRGB4 

(Screen->ViewPort, 17, 

10, 

10, 

0); 

SetRGB4 

(Screen->ViewPort, 18, 

15, 

0, 

0); 

SetRGB4 

(Screen->ViewPort, 19, 

0, 

0, 

0); 


CloseLibrary (IntuitionBase); 
CloseLibrary (GfxBase); 


} 


Wait (0); 
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Wunderschön, nicht wahr? 

Zur Erklärung: 

Die Intuition-Funktion SetPointer gibt kein Resultat zurück, 
erwartet jedoch 5 Argumente: 


Window: Zeiger auf die Window-Struktur des Windows, 

dessen Mauszeiger geändert werden soll. 

Pointer: Zeiger auf die Daten für den Sprite. 

Height: Höhe des Mauszeigers in Zeilen. 

Width: Breite des Mauszeigers in Pixels (nicht größer als 

16). 

XOffset: Gibt die X-Koordinate des "hot spots" an. Der "hot 

spot" ist der Punkt, der den eigentlichen Mauszei¬ 
ger darstellt, d. h., die Stelle, mit der Sie alles an¬ 
klicken müssen. 

YOffset: Y-Koordinate des hot-spots. 


Der Aufruf von SetPointer geschieht in dem Demo-Programm in 
Zeile 56. Das Argument Window wurde in Zeile 52 mit einem 
Zeiger auf die Window-Struktur des gerade aktuellen Windows 
belegt. 

Mit spritedata wird an SetPointer die Adresse des Feldes für die 
Daten des neuen Zeigers übergeben. Dieses Feld muß folgen¬ 
dermaßen aufgebaut sein: 

1. Zwei Nullen am Anfang. 

2. Die eigentlichen Spritedaten. Hierbei braucht jede Sprite- 
Zeile zwei Worte (16-Bit-Werte), da insgesamt vier Farben 
zur Verfügung stehen (besser: drei Farben plus durch¬ 
scheinend). Legt man die beiden Worte übereinander, so er 
gibt sich die eigentliche Farbe. 

1. Beispiel: 

Wort 1: Sffff (%1111111111111111) 
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Wort 2: $ffff (% 1111111111111111) 

Bei %11 wird die Farbe aus dem Farbregister 19 genom¬ 
men. 

2. Beispiel: 

Wort 1: $0000 (%0000000000000000) 

Wort 2: $ffff (%1111111111111111) 

Bei %10 wird Farbregister 18 genommen. 

Entsprechend wird bei der Kombination %01 das Farbre¬ 
gister 17, und bei der Kombination %00 die Hintergrund¬ 
farbe genommen. 


3. Wieder zwei Nullen zum Schluß. Die Argumente 9 und 16 
beim Aufruf von SetPointer geben die Größe des neuen 
Mauszeigers an. In diesem Fall ist er 9 Pixel lang und 16 
Pixel breit. 

Mit -7 und -5 wird schließlich der eigentliche Mauszeiger, 
der sog. "hot spot", ziemlich genau in die Mitte des neuen 
Mauszeiger(-Bildes) gelegt. 

In den Zeilen 58 - 60 werden schließlich die Farbregister 
17 - 19, die wie oben auf geführt für die Farbe des Maus¬ 
zeigers verantwortlich sind, mit den gewünschten Farben 
geladen. Dazu bedienen wir uns des Grafik-Befehls 
SetRGB4. Dieser Befehl benötigt erst einmal einen Zeiger 
auf den Viewport, für den die Farben bestimmt werden 
sollen. Diesen Viewport erhalten wir aus der Screen- 
Struktur des gerade aktuellen Screens. Weiterhin benötigt 
SetRGB4 die Nummer des gewünschten Farbregisters. 

Und schließlich sind noch die gewünschten Rot-, Grün- 
und Blau-Anteile gefordert. Diese bestehen aus 4 Bits 
(können also Werte von 0-15 durchlaufen), und geben 
die Intensität des jeweiligen Anteils an. Wenn alle auf 0 
sind, ist schwarz angesagt; sind alle auf 15, so wird weiß 
dargestellt. 
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Es gibt auch ein Gegenstück zu Setpointer: ClearPointer. Mittels 
dieser Intuition-Funktion kann eine Defintion eines Mauszeigers 
wieder rückgängig gemacht werden. Intuition stellt den Mauszei¬ 
ger automatisch wieder auf den Standard-Mauszeiger zurück. 

Das ganze im Programm: 


tfinclude <exec/types.h> 
tfinclude <intuition/intuition. h> 


#define STANDARDPOINTER 1 
#define CUSTOMPOINTER 0 


struct IntuitionBase *IntuitionBase; 
struct GfxBase *GfxBase; 

DWORD spritedata[] = 

{ 

0 , 0 , 

Oxffff, OxOeOO, 

Oxffff, OxOeOO, 

Oxfffo, OxOeOO, 

Oxfffc, Oxfffc, 

OxfffO, OxfffO, 

Oxfffc, Oxfffc, 

Oxfffc, OxOeOO, 

Oxffff, OxOeOO, 

Oxffff, OxOeOO, 

0 , 0 
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rnain () 

{ 

struct Screeri *Screen; 
struct Window *Window; 

BOOL flag - STANDARDPOINTER; 


IntuitionBase = (struct IntuitionBase *) 

OpenLibrary ( M intuition.library", 0) 

if (IntuitionBase == NULL) 


{ 

printf ("???\n"); 
exit (FALSE); 

} 

GfxBase = (struct GfxBase *) OpenLibrary ("graphics. libra 
ry", 0); 

if (GfxBase = = NULL) 

{ 

printf ( M ??????\n”); 

CloseLibrary (IntuitionBase); 
exit (FALSE); 

} 


Screen = IntuitionBase->ActiveScreen; 
Window = IntuitionBase->ActiveWindow; 


FOREVER 

{ 

if (flag == STANDARBPOINTER) 

{ 

flag = CUSTOMPOINTER; 

SetPointer (Window, spritedata, 9, 16, -7, -5); 

} 

eise 

{ 

flag = STANDARDPOINTER; 

ClearPointer (Window); 

} 

Delay (25); 

} 

} 
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tfinclude <stdio.h> 
tfinclude <exec/types.h> 
tfinclude <intuition/intuition. h> 


struct GfxBase *GfxBase; 

struct IntuitionBase *IntuitionBase; 


main() 

{ 

struct View *view; 
struct ViewPort *viewport; 
COUNT zaehler; 


Alles vor der Zeile 59 ist nur Initialisierung. In Zeile 59 startet 
schließlich das Hauptprogramm. In diesem wird mittels eines 
Flags immer zwischen zwei Anweisungen hin- und hergesprun¬ 
gen. Dadurch wird abwechselnd der neue Mauszeiger und der 
Standard-Mauszeiger gesetzt. Zwischendurch wird immer mit 
der AmigaDOS-Funktion Delay eine halbe Sekunde gewartet. 

Weiter oben wurde gesagt, daß die Farbe für den Pointer in den 
Farb-Registern 17 - 19 zu finden ist. Kreativ, wie wir sind, 
fällt uns natürlich auch dazu gleich ein kleines Programm ein: 
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GfxBase = (struct GfxBase *) OpenLibrary (“graphics. libra 
r y", 0); 

if (GfxBase == NULL) 

{ 

printf ("Diesmal finde ich keine Grafik-Bibliothek. \n" 

); 

exit (FALBE); 

} 

IntuitionBase = (struct IntuitionBase *) 

OpenLibrary (”intuition.library“, 0) 

if (IntuitionBase == NULL) 

{ 

printf ("Diesmal finde ich keine Intuition-Bibliothek. 
\n“); 

exit (FALSE); 

} 


view = (struct View *) ViewAddress (); 
viewport = view->ViewPort; 

FOREVER 

{ 

for (zaehler = 0; zaehler < 16; zaehler++) 

{ 

SetRGB4 (viewport, 17, zaehler, zaehler, zaehler); 
Delay (20); 

} 

} 

> 


Noch ein Tip zum Schluß: Gestalten Sie Ihren Mauszeiger doch 
einmal so richtig interessant, indem Sie ein wenig Animation mit 
ins Spiel bringen. Dazu brauchen Sie nur einige verschiedene 
Sprite-Daten zu initialisieren, und diese dann nacheinander an¬ 
stelle des Pointers zu setzen. Wenn diese Daten gut gewählt wur¬ 
den, kann man schon sehr schöne Effekte erzielen; z.B. ein 
laufendes Männchen, oder dergleichen. 


3.3.4 Text ausblenden - ganz einfach 

Haben Sie schon den Amiga-Tutor laufen lassen? Ist Ihnen dabei 
aufgefallen, daß oft bestimmte Teile, sei es Grafik oder Text, 
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langsam aus- bzw. eingeblendet werden? Sieht ziemlich gut aus, 
und ist auf dem Amiga auch ziemlich gut zu programmieren. 

Schauen Sie sich zu diesem Thema einmal folgendes Programm 
an: 

tfinclude <exec/types.h> 
tfinclude <intuition/intuition. h> 


struct IntuitionBase *IntuitionBase; 
struct GfxBase *GfxBase; 


rnain () 

{ 

struct Screen *Screen; 
struct Window *Window; 
struct NewScreen NewScreen; 
struct NewWindow NewWindow; 
COÜNT zaehler_l, zaehler_2; 


IntuitionBase = (struct IntuitionBase *) 

OpenLibrary (”intuition.library", 0) 

if (IntuitionBase == NOLL) 

{ 

printf (“Grummel, grumroel, grummel. . . \n"); 
exit (FALSE); 


GfxBase = (struct GfxBase *) OpenLibrary ("graphics. libra 
ry”, 0); 

if (GfxBase == NULL) 

{ 

printf ("Grummel, grummel, grummel, grummel, grummel.. 
\n"); 

CloseLibrary (IntuitionBase); 
exit (FALSE); 
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NewScreen.LeftEdge = 0; NewScreen.TopEdge = 0; 
NewScreen.Width = 320; NewScreen.Height = 200; 
NewScreen.Depth = 2; 

NewScreen.DetailPen * 0; NewScreen.BlockPen = 1; 
NewScreen.ViewModes = NULL; 

NewScreen.Type = CUSTOMSCREEN; 

NewScreen.Font = NULL; 

NewScreen.DefaultTitle = NULL; 

NewScreen.Gadgets = NULL; 

NewScreen.CustoraBitMap = NULL; 

Screen = (struct Screen *) OpenScreen (&NewScreen); 
if (Screen == NULL) 

{ 

printf ("DU bekommst leider keinen Screen \ \n"); 
CloseLibrary (IntuitionBase); 

CloseLibrary (GfxBase); 
exit (FALSE); 

} 


NewWindow.LeftEdge = 0; NewWindow.TopEdge = 0; 

NewWindow.Width = 320; NewWindow. Height = 200; 

NewWindow.DetailPen = 0; NewWindow. BlockPen = 1; 
NewWindow.IDCMPFlags - NULL; 

NewWindow. Flags = SMART__REFRESH j BACKDROP ! BORDERLESS | 
ACTIVATE ! 

NOCAREREFRESH; 

NewWindow.FirstGadget = NULL; 

NewWindow. CheckMark = NULL; 

NewWindow.Title = NULL; 

NewWindow.Screen = Screen; 

NewWindow.BitMap = NULL; 

NewWindow.MinWidth = NULL; NewWindow.MinHeight = NULL; 
NewWindow.MaxWidth = NULL; NewWindow.MaxHeight = NULL; 
NewWindow.Type = CUSTOMSCREEN; 

Window = (struct Window *) OpenWindow (&NewWindow); 
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if (Window == NULL) 

{ 

printf ("Keinen Bock auf 'nen neues Window.\n"); 
CloseScreen (Screen); 

CloseLibrary (IntuitionBase); 

CloseLibrary (GfxBase); 
exit (FALBE); 

} 


ShowTitle (Screen, FALBE); 


SetDrMd (Window->RPort, JAM1); 

SetAPen (Window->RPort, 1); 

SetRGB4 (&(Screen->ViewPort), 0, 0, 0, 0); 
SetRGB4 (&(Screen->ViewPort), 1, 0, 0, 0); 


Move (Window->FPort, 
Text (Window->RPort, 
”, 35); 

Move (Window->RPort, 
Text (Window->RPort, 
1“, 36); 

Move (Window->RPort, 
Text (Window->RPort, 


10, 60); 

"It's so dreamy _ oh fantasy free me 
20, 80); 

"So you can't see me _ oh, not at al 
30, 120); 

"The Rocky Horror Picture Show", 29) 


for (zaehler_l = 1; zaehler„l < 4; zaehler_l++) 

{ 

Delay (20); 

for (zaehler_2 = 0; zaehler_2 < 16; zaehler_2++) 

{ 

SetRGB4 (&(Screen->ViewPort), 1, zaehler_2, zaehler 
_J2, zaehler_2); 

Delay (4); 


} 
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for (zaehler^2 = 15; zaehler_2 >= 0; zaehler_J2—) 

{ 

SetRGB4 (&(Screen->ViewPort), 1, zaehler_2, zaehler 
_2, zaehler_2); 

Delay (4); 

} 

> 


CloseWindow (Window); 
CloseScreen (Screen); 
CloseLibrary (GfxBase); 
CloseLibrary (IntuitionBase); 


Gesehen? Gut, dann ein bißchen Theorie: 

Jeder Bildschirm besteht beim Amiga aus 1-6 Ebenen, sog. Bit¬ 
planes. Die Anzahl der Ebenen bestimmt die Anzahl der verfüg¬ 
baren Farben. Ist zum Beispiel nur eine Ebene vorhanden, so 
kann ein Bildschirmpixel entweder 0 oder 1 sein; es können also 
nur zwei Farben dargestellt werden. 




258 


AMIGA Tips & Tricks 


Sind dagegen vier Ebenen vorhanden, so gibt es 2 A 4 = 16 Mög¬ 
lichkeiten für ein Bildschirmpixel, und es können demnach 16 
Farben dargestellt werden. 

Nach dieser Erklärung könnte man meinen, daß die Farbe eines 
Pixels auf dem Bildschirm unwiderruflich festgelegt it. Falsch! 
Die Bits in den verschiedenen Bitplanes geben nur an, welches 
Farbregister für dieses Pixel genommen werden soll. Stehen z. B. 
zwei Bitplanes zur Verfügung, und in beiden Bitplanes ist das 
linke obere Bit gleich 1, so wird dieses Pixel in der momentanen 
Farbe des Farbregisters % 11 = 3 dargestellt. 

Verändert man nun den Inhalt dieses Farbregisters, so ändern 
alle Bildschirmpixel, die auf dieses Farbregister zurückgreifen, 
automatisch ihre Farbe. 

Will man nun einen Text oder eine Grafik aus- oder einblenden, 
so muß man nur den Inhalt des Farbregisters, das für den Text 
oder die Grafik zuständig ist, langsam dem Inhalt des Farbregis¬ 
ters, das für den Hintergrund zuständig ist, angleichen. 

Und genau das vollführt das Beispielprogramm: 

Zuerst wird der ganze benötigte Kram geöffnet. Dazu gehört die 
Intuition-Library, die Grafik-Library, ein geeigneter Screen, 
und ein Window. Nachdem dies alles ordnungsgemäß beendet 
wurde, wird in Zelle 91 der Zeichenmodus gesetzt. Sodenn wird 
in der darauffolgenden Zeile festgelegt, daß die Zeichenfarbe 
aus dem Farbregister 1 zu holen ist. Die nächsten zwei Zeilen 
sorgen dafür, daß sowohl das Farbregister 0 (Hintergrundfarbe) 
als auch das Farbregister 1 (Zeichenfarbe) mit der wunder¬ 
hübschen Farbe schwarz belegt werden. 

Die Zeilen 96 - 101 geben einen Text auf das Window aus - da 
die Zeichenfarbe jedoch gleich der Hintergrundfarbe ist, ist für 
den unbeteiligten Zuschauer noch nichts zu erspähen. 

Die äußere Schleife ab Zeile 103 sorgt dafür, daß der gesamte 
Vorgang drei mal wiederholt wird. Die beiden inneren Schleifen 
sorgen dafür, daß die Farbregler langsam in Richtung weiß, und 
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danach wieder langsam in Richtung schwarz geschoben werden. 
Dadurch taucht der Text aus dem Schwarz hervor, geht alle 
möglichen Graustufen durch, bis zum strahlensten Weiß, um 
hiernach wieder ins Grau und schließlich ins Schwarz zu versin¬ 
ken. 

Mit Delay wird verhindert, daß das ganze zu schnell abläuft. 


3.3.5 Ein einfaches Malprogramm mit Menüs, Requesters und 
Rubberband 

Hier haben wir etwas ganz besonderes für Sie: ein Malpro¬ 
gramm. Natürlich, es ist kein DeluxePaint. Doch dafür verfügen 
Sie über das Listing, und können es so ganz einfach Ihren 
Bedürfnissen anpassen, und ’ne ganze Menge für Ihre eigenen 
Programme lernen. 


tfinclude <exec/types. h> 
tfinclude <exec/exec. h> 
ttinclude <graphics/copper. h> 
tfinclude <graphics/gels. h> 
tfinclude <graphics/gfxbase. h> 
tfinclude <graphics/regions. h> 
tfinclude <intuition/intuition, h> 
tfinclude <devices/keymap, h> 
tfinclude <hardware/blit. h> 


tfdefine UP 0 
#define DOWN 1 



260 


AMIGA Tios & Tricks 


struct IntuitionBase *IntuitionBase; 
struct GfxBase *GfxBase; 


void drawbox (Window, start_x, start_y, end_x, 
struct Window *Window; 

SHORT start_x, start_y, end_x, end_y; 


{ 


} 


Move (Window->PPort, 
Draw (Window->RPort, 
Draw (Window->RPort, 
Draw (Window->RPort, 
Draw (Window->RPort, 


end_x, end_y); 
end_x, start_y); 
start_x, start_y); 
start_x, end_y); 
end_x, end_y); 


end_y) 


raain () 

{ 

struct Screen *Screen; 
struct Window *Window; 
struct NewScreen NewScreen; 

struct NewWindow NewWindow; 
struct Menultera Menultem[8]; 

struct IntuiText MenuText[4], BodyText, PositiveText, Neg 
ativeTex-t; 

struct Image MenuImage[4]; 

struct Menu Menu[2]; 

struct IntuiMessage *Message; 

COUNT z; 

ULONG Class; 

USHORT Code; 

SHORT start_x, start_y, end_x, end_y; 

BOOL endflag = TRUE; 

B00L penflag = UP; 

BOOL mousemoveflag = FALSE; 

BOOL drawflag = TRUE; 

BOOL boxflag = FALSE; 

BOOL rubberbandflag = FALSE; 
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IntuitionBase = (struct IntuitionBase *) 

OpenLibrary (“Intuition.library", 0) 

if (IntuitionBase == NULL) 

{ 

printf ("Tut mir leid. Keine Intuition-Library.\n"); 
exit (FALSE); 


GfxBase = (struct GfxBase *) OpenLibrary ("graphics.libra 

ry", 0 ); 

if (GfxBase == NULL) 

{ 

printf (“Tut mir ausserordentlich leid. Keine Grafik-L 
ibrary.\n"); 

CloseLibrary (IntuitionBase); 
exit (FALSE); 

} 

NewScreen.LeftEdge = 0; NewScreen.TopEdge = 0; 

NewScreen.Width = 320; NewScreen.Height = 200; 

NewScreen.Depth = 2; 

NewScreen.DetailPen = 0; NewScreen.BlockPen = 1; 

NewScreen.ViewModes = NULL; 

NewScreen.Type = CUSTOMSCREEN; 

NewScreen.Font = NULL; 

NewScreen.DefaultTitle = NULL; 

NewScreen.Gadgets = NULL; 

NewScreen.CustomBitMap = NULL; 

Screen = (struct Screen *) OpenScreen (&NewScreen); 
if (Screen == NULL) 

{ 

printf ("Ich bin untroestlich. Kein Screen.\n"); 
CloseLibrary (GfxBase); 

CloseLibrary (IntuitionBase); 
exit (FALSE); 


} 
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NewWindow. LeftEdge = 0; NewWindow.TopEdge = 0; 

NewWindow. Width = 320; NewWindow.Height = 200; 

NewWindow.DetailPen = 0; NewWindow.BlockPen = 1; 
NewWindow.IDCMPFlags = MOUSEBUTTONS | MOUSEMOVE [ MENUPIC 
K; 

NewWindow.Flags = SMART ^REFRESH ! BACKDROP J BORDERLESS \ 
ACTIVATE } 

NOCAREREFRESH ! REPORTMOUSE; 

NewWindow.FirstGadget = NULL; 

NewWindow. CheckMark = NULL; 

NewWindow.Title = NULL; 

NewWindow. Screen = Screen; 

NewWindow.BitMap = NULL; 

NewWindow. MinWidth = NULL; NewWindow.MinHeight = NULL; 
NewWindow. MaxWidth = NULL; NewWindow.MaxHeight = NULL; 
NewWindow.Type = CUSTOMSCREEN; 

Window = (struct Window *) OpenWindow (&NewWindow); 
if (Window == NULL) 

{ 

printf ("Ich bin schockiert. Kein Window.\n"); 
CloseScreen (Screen); 

CloseLibrary (GfxBase); 

CloseLibrary (IntuitionBase); 
exit (FALSE); 

} 


ShowTitle (Screen, FALSE); 
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for (z = 0; z < 4; z++) 

{ 

Menultera[z].LeftEdge = 0; Menultem[z].TopEdge = z * 10 

Menultem[z].Width = 64; MenuItem[s].Height = 10; 
Menultem[z].Flags = ITEMTEXT { ITEMENABLED J HIGHBOX; 
Menultera[z].MutualExclude = NULL; 

Menultem[z]. ItemFill = (APTR) &MenuText[z]; 

Menultemfz ]. SelectFill = NULL; 

Menultera[z].Comraand = NULL; 

Menultem[z]. Subltera = NULL; 

Menultem[z]. NextSelect = NULL; 

MenuTextfz].FrontPen = 0; MenuText[z].BackPen = 1; 
MenuText[z].TopEdge = 1; 

MenuText[z].DrawMode = JAM2; 

MenuText[z].ITextFont = NULL; 

MenuText[z].NextText = NULL; 

} 


Menultem[0J.Nextltera 
Menultem[1].Nextltem 
Menultem[2]. Nextltem 
Menultem[3].Nextltem 


&MenuItem[1]; 
&MenuItera[2]; 
&MenuItem[3]; 
NULL; 


MenuText[Ü].LeftEdge 
" Draw"; 

MenuText[1].LeftEdge 
" Box"; 

MenuText[2J.LeftEdge 
"Erase"; 

MenuText[3].LeftEdge 
"Quit"; 


15; MenuTextCO].IText = (UBYTE *) 
20; MenuTextCl].IText = (UBYTE *) 
10; MenuText[2].IText = (UBYTE *) 
15; MenuText[3].IText = (UBYTE *) 


Menu[0].NextMenu = &Menu[l]; 

Menu[0],LeftEdge = 10; Menu[0]. TopEdge = 0; 
Menu[0].Width = 58; Menu[0].Height = 10; 
Menu[0].Flags = MENUENABLED; 

Menu[0]. MenuName = "Actions"; 

Menu[0].FirstItem = &MenuItem[0]; 
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for (z = 4; z < 8; z++) 

{ 

Menultera[z].LeftEdge = 0; Menultem[z] . TopEdge = (z-4) 
* 10; 

Menultem[z].Width = 50; Menultem[z]. Height = 10; 
Menultem[z].Flags = ITEMENABLED ! HIGHBOX; 

Menultem[z].MutualExclude = NULL; 

Menultem[z].ItemFill = (APTR) &MenuImage[z-4]; 
Menultem[z].SelectEill = NULL; 

Menultem[z ] . Command = NULL; 

Menultem[z]. Subitem = NULL; 

Menultemfz].NextSelect = NULL; 

MenuImage[z-4].LeftEdge = 1; MenuImage[z-4].TopEdge = 

i; 

MenuImage[z-4]. Width “ 48; MenuImage[z-4]. Height = 8; 
MenuImage[z-4]. Depth - 2; 

MenuImage[z-4]. ImageData = NULL; 

MenuImage[z-4] . PlanePick = 0; 

MenuImage[z-4] . PlaneOnOff = z-4; 

MenuImage[z-4].NextImage = NULL; 

> 


Menultem[4].Nextltem = &MenuItem[5]; 
Menultem[5].Nextltem = &MenuItem[6]; 
Menultem[6].Nextltem = &MenuItera[7]; 
Menultera[7].Nextltem = NULL; 

Menu[1].NextMenu = NULL; 

Menu[1].LeftEdge = 80; Menu[1].TopEdge = 0; 
Menu[l].Width = 44; Menu[1] . Height = 10; 
Menu[l].Flags = MENUENABLED; 

Menu[1].MenuName = "Color 
Menu[ 1]. FirstItem ;> = &MenuItem[4]; 


SetMenuStrip (Window, &Menu[0]); 
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BodyText. FrontPen = 0; BodyText.BackPen = 1; 
BodyText. DrawMode = JAM2; 

BodyText.LeftEdge = 30; BodyText.TopEdge = 5; 
BodyText.ITextFont = NULL; 

BodyText.IText = (ÜBYTE *) "Bist Du sicher?"; 
BodyText. NextText = NULL; 

PositiveText.FrontPen = 0; PositiveText.BackPen = 1; 
PositiveText.DrawMode = JAM2; 

PositiveText.LeftEdge = 5; PositiveText.TopEdge = 4; 
PositiveText.ITextFont = NULL; 

PositiveText.IText = (UBYTE *) ”Na klar!“; 
PositiveText.NextText = NULL; 

NegativeText.FrontPen = 0; NegativeText.BackPen = 1; 
NegativeText.DrawMode = JAM2; 

NegativeText.LeftEdge = 5; NegativeText.TopEdge = 4; 
NegativeText.ITextFont = NULL; 

NegativeText.IText = (UBYTE *) "Hm..."; 

NegativeText.NextText = NULL; 

SetAPen (Window->RPort, 1); 

SetDrMd (Window->RPort, JAM1); 


while (endflag == TRUE) 

{ 

Wait (1 << Window->UserPort->mp_5igBit); 

while (Message - (struct IntuiMessage *) GetMsg (Windo 
w->UserPort)) 

{ 

Class = Message->Class; 

Code = Message->Code; 
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ReplyMsg (Message); 

mousemoveflag = FALSE; 

switch (Class) 

{ 

case MOUSEMOVE: 

mousemoveflag = TRUE; 
break; 

case MOÜSEBÜTTONS: 
switch (Code) 

{ 

case SELECTUP: 
penf lag = ÜP; 
break; 

case SELECTDOWN: 
penflag = DOWN; 

Move (Window->RPort, Window->MouseX, Wi 

ndow->MouseY); 

break; 

case MENÜDOWN: 


Ml); 

x, end_y); 


SetDrMd (Window->RPort, COMPLEMENT | JA 

drawbox (Window, start_jc, start_y, end_ 

SetDrMd (Window->RPort, JAM1); 

Window->Flags &= (Oxffffffff ~ RMBTRAP) 


rubberbandflag = FALSE; 
break; 

} 

break; 


case MENÜPICK: 

if (Code 1= MENÜNÜLL) 

{ 

switch (MENUNUM (Code)) 

{ 

0 Q; 

switch (ITEMNÜM (Code)) 

{ 

case 0: 

drawflag = TRÜE; 


boxflag = FALSE; 


break; 


case 1: 

boxflag = TRÜE; 
drawflag = FALSE; 
break; 
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Text, &PositiveText, 

, NULL, NULL, 200, 50) 

0, 0, 320, 200); 


case 2: 

if (AutoRequest (Window, &Body 
&NegativeText 

== TRUE) 

RectFill (Window-* >RPort, 

break; 


Text, &PositiveText, 


case 3: 

if (AutoRequest 


, NULL, NULL, 200, 50) 


== TRUE) 
endflag = 

break; 


> 

break; 


(Window, &Body 
&NegativeText 


FALSE; 


e)); 


} 


case 1: 

SetAPen (Window->RPort, ITEMNUM (Cgd 
break; 

} 

} 

break; 

default: 
break; 
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if (boxflag && penflag && !rubberbandflag) 

rubberbandflag - TROE; penflag = FALSE; 

Window->Flags j = RMBTRAP; 

start_x - Window->MouseX; starte - Window->MouseY; 

end_x - start_x; end _y - start_y; 

SetDrMd (Window->RPort, COMPLEMENT j JAH1); 
drawbox (Window, start_x, start__y, end„x, end__y) ; 
SetDrMd (Window->RPort, JAM1); 


if (boxflag && penflag && rubberbandflag) 

rubberbandflag = EALSE; penflag = FALSE; 

Window->Flags 8c- (Oxffffffff ~ RMBTRAP); 
drawbox (Window, start_x, start_y, end„x, end_y); 

} 


if (drawflag && penflag && mousemoveflag) 

Draw (Window->FPort, Window->MouseX, Window->MouseY 

); 

if (boxflag && mousemoveflag && rubberbandflag) 

^ SetDrMd (Window->RPort, COMPLEMENT 1 JAM1); 

drawbox (Window, start_x, start_y, end_x, end__y); 
end_x - Window->MouseX; end_y - Window->MouseY; 
drawbox (Window, start_x, start_y, end_x, end_y); 
SetDrMd (Window->RPort, JAM1); 

} 

} 
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ClearMenuStrip (Window); 
CloseWindow (Window); 
CloseScreen (Screen); 
CloseLibrary (GfxBase); 
CloseLibrary (IntuitionBase); 


3.3.5.1 Die verschiedenen Funktionen des Malprogrammes: 

Haben Sie das Programm zum Laufen gebracht? Ja? Nun, so se¬ 
hen Sie jetzt einen unberührten blauen Bildschirm vor sich - 
öde und leer, und förmlich dazu geschaffen, Kreativität wie¬ 
derzugeben. 

Also legen Sie los. Bewegen Sie bei gedrückter linker Maustaste 
den Mauszeiger über den Bildschirm. Und damit haben Sie auch 
schon eine der Funktionen kennengelernt: Draw. Drücken Sie 
nun einmal die rechte Maustaste. In der Titelleiste werden nun 
hoffentlich zwei Menüpunkte erscheinen. Gehen Sie einmal auf 
COLOR, und suchen Sie sich eine der Farben aus. Wenn Sie nun 
wieder auf dem Bildschirm malen, erscheinen die Pixel in der 
ausgewählten Farbe, z. B. rot statt vorher weiß. 

Im linken Menü ACTIONS erhalten Sie vier Untermenüs: 


DRAW: Schaltet den oben beschriebenen Draw-Modus ein. 

BOX: Wenn Sie diesen Modus eingestellt haben, so kön¬ 

nen Sie Rechtecke auf dem Bildschirm entwerfen. 
Drücken Sie die linke Maustaste, so wird der An¬ 
fangspunkt gesetzt. Nun können Sie die Maustaste 
loslassen, und durch Bewegen der Maus das 
Rechteck auf die gewünschte Größe bringen. Wenn 
Sie jetzt die linke Maustaste wieder betätigen, wird 
das Rechteck gemalt. 
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Wollen Sie das Rechteck nicht auf dem Bildschirm 
haben, so betätigen Sie einmal kurz die rechte 
Maustaste. 

ERASE: Löscht den Bildschirm mit der aktuellen Zeichen¬ 

farbe. 

QUIT: Beendet das Programm (natürlich mit Bestätigung). 


3.3.5.2 Ein ungefährer Ablauf des Programmes 
Zeile 1 - 9: 

Einfügen von Headerfiles. Nicht alle werden hier wirklich 
benötigt, aber wir benutzen den Lattice-C-Compiler, und 
konnten diese elenden "Warning 61" nicht mehr länger sehen. 

Zeile 13 / 14: 

UP steht für Zeichencursor oben, und DOWN für Zeichencursor 
unten (wenn im Drawmodus die linke Maustaste gedrückt 
wurde). 

Zeile 18 / 19: 

Und natürlich brauchen wir auch wieder die Library-Base- 
Pointer. 

Zeile 23 - 32: 

Ein kleines Unterprogramm zum Zeichnen eines Rechteckes. 

Zeile 38 - 57: 

Variablendefinition. 

Zeile 61 - 76: 

Eröffnen der Intuition- und der Grafik-Library. 

Zeile 80 - 127: 

Eröffnen eines Screens (320 * 200 * 2) und eines Backdrop-Bor- 
derless-Windows-ohne-Menüzeile. 

Zeile 131 - 202: 

Initialisieren der Menüs. 
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Zeile 206 - 225: 

Belegen des notwendigen Krams für einen Autorequester. 

Zeile 234: 

Beginn der äußersten Schleife. 

Zeile 236: 

Ist etwas außergewöhnliches passiert? Ja? Dann sendet Intuition 
eine Nachricht zum Userport. 

Zeile 238: 

Wenn noch eine Nachricht anliegt, dann wird die Schleife abge¬ 
arbeitet. Ist keine Nachricht mehr vorhanden, so geht der 
Ablauf in Zeile 320 weiter. 

Zeile 240 / 241: 

Werte dienen zum Erkennen der Nachricht, und werden am 
besten abgespeichert. 

Zeile 243: 

Löscht die Nachricht, deren Werte eben abgespeichert worden 
sind. 

Zeile 247: 

Jetzt wird versucht, die Nachricht zu erkennen. Erstes Erken¬ 
nungszeichen dabei ist Class. Hier können drei Fälle eingetreten 
sein: 


MOUSEMOVE: 

Maus wurde bewegt, also entsprechendes Flag setzen. 
MOUSEBUTTONS: 

Hier kann es drei weitere Fälle geben, also muß Code zur 
eindeutigen Identifizierung der Nachricht mit herangezo¬ 
gen werden: 


SELECTUP: 

Linke Maustaste nicht gedrückt, also Flag setzen. 
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SELECTDOWN: 

Linke Maustaste gedrückt, also Flag setzen, und Grafik¬ 
cursor an aktuelle Mausposition setzen. 

MENUDOWN: 

Rechte Maustaste gedrückt. Wenn gerade eine Box gezogen 
wurde, so will der Benutzer diese Box nicht auf seinem 
Schirm haben. Also wird die Box mittels des Mal modus 
COMPLEMENT gelöscht, und der Rubberband-Modus 
beendet. 

MENUPICK: 

Aha, ein Menü wurde ausgewählt. Doch welches? Läßt 
sich mittels Code bestimmen (und der Macros MENUNUM 
& ITEMNUM): 

Zeile 283: 

Draw-Menü ausgewählt, also ent sprechende Flags setzen / 
löschen. 

Zeile 288: 

Box-Menü ausgewählt, also entsprechende Flags setzen / 
löschen. 

Zeile 293: 

Erase-Menü ausgewählt. Also einen Requester ausgeben, und 
ggf. das Window löschen. 

Zeile 300: 

Quit. Auch hier wieder einen Requester ausgeben, und u.U. 
wirklich das endflag setzen. 

Zeile 323 - 332: 

Wird ausgeführt, wenn der Benutzer gerade wieder ein neues 
Rechteck zeichnen will. 

Zeile 335 - 340: 

Diese Zeilen werden abgearbeitet, wenn der Benutzer sich dazu 
durchgerungen hat, zum 2. mal die linke Maustaste zu drücken, 
und so das Rechteck wirklich gezeichnet werden soll. 
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Zeile 343 / 344: 

Diese zwei Zeilen sind für einfaches Zeichnen mittels des 
Menüpunktes Draw gedacht. Muß nicht viel gemacht werden. 

Zeile 347 - 354: 

Diese Zeilen behandeln das Rubberbanding. Darauf wird später 
noch näher eingegangen. 

Zeile 360 - 364: 

Da das Programm gleich beendet werden soll, ist es am besten, 
wieder den gesamten belegten Speicher freizugeben. So muß der 
Speicher, der durch die Verwendung von Menüs belegt wurde, 
genauso freigegeben werden wie der Speicher für den Screen, 
das Window sowie die beiden Libraries. 


3.3.5.3 Ein paar Worte zu den verwendeten Variablen 

*IntuitionBase: Zeiger auf eine Struktur vom Typ Intuition- 
Base. Braucht der Amiga, um auf die Intuition-Library zurück¬ 
greifen zu können. 

*GfxBase: Wie oben, jedoch für Grafik-Library. 

*Screen: Zeiger auf die Screen-Struktur des verwendeten 
Screens. 

*Window: Zeiger auf die Window-Struktur des Windows, auf 
dem das Malprogramm seine Aktionen ausführt. 

NewScreen: NewScreen-Struktur, wird zum Eröffnen des 
Screens gebraucht. 

NewWindow: Eine NewWindow-Struktur; wird gebraucht, um 
die Eigenschaften des verwendeten Windows festzulegen. 
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Menultem[8: Ein Feld von acht Variablen vom Typ struct 
Menuitem. In diesem Feld werden die Eigenschaften der acht 
Menüpunkte (Draw, Box, Erase, Quit, und die vier Farben) fest¬ 
gelegt. 

MenuText[4: Hier kommen die vier Texte zu den Menüpunkten 
Draw, Box, Erase & Quit hinein. Die vier Farben kommen ohne 
Text aus. 

BodyText: Enthält den Text, der ganz oben im Requester 
erscheinen soll. 

PositiveText: Hier kommt der Text rein, der im Requester in 
dem linken Gadget erscheinen soll. 

NegativeText: Und hier ist der Text für das rechte Gadget im 
Requester zu finden. 

Menulmage[4: Die vier Variablen dieses Feldes beschreiben das 
Aussehen der vier Menüpunkte, die in dem Menü Color zu fin¬ 
den sind. 

Menu[2: Hier werden die beiden Menüs beschrieben. 

* Message: Diese Variable ist ein Zeiger auf die Stelle, wo Intui¬ 
tion eine anfallende Nachricht ablegen soll. 

z: Zähler. Wird beim Initialisieren der Menüpunkte gebraucht, 
da hier ein paarmal dieselbe Information in verschiedenen 
Variablen abgespeichert werden soll, was am besten mit einer 
Schleife geschieht. 

Class: Wird von Intuition an das Programm gegeben, und ent¬ 
hält eine Information zum Erkennen der Nachricht. 

Code: Enthält eine weitere Information zum Erkennen der 
Nachricht; wird auch von Intuition belegt. 

start_x, start_y: Enthalten die Koordinaten des Anfangspunktes 
des Rechtecks. Diese beiden Variablen werden einmal gesetzt. 
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und bleiben solange konstant, bis der Benutzer das Rechteck 
zeichnet, oder das Rubberbanding mittes der rechten Maustaste 
unterbricht. 

end_x, end_y: Diese beiden Variablen enthalten die 
Koordinaten des Endpunktes des Rechtecks. Beim 
Rubberbanding enthalten diese Variablen die Position des 
Mauszeigers, da dieser ja den Endpunkt des aktuellen 
Rechteckes mit sich herumzieht. 

endflag: Dieses Flag ist solange TRUE, bis der Benutzer das 
Programm mittels des Quit-Menüs beenden will. Durch endflag 
wird die äußerste while-Schleife kontrolliert. 

penflag: Ist UP, wenn der Benutzer die linke Maustaste nicht 
gedrückt hat, und DOWN, wenn doch. 

mousemoveflag: Ist FALSE, wenn der Mauszeiger nicht bewegt 
wurde. Im anderen Fall TRUE. 

drawflag: Gibt an, ob das Draw-Menü ausgewählt wurde. Ist 
ganz zu Anfang des Programmes mit TRUE besetzt; dadurch 
können Sie schon von Anfang an loszeichnen. 

boxflag: Ist TRUE, wenn der Benutzer Rechtecke zeichnen will, 
und demnach das Box-Menü ausgesucht hat. 

rubberbandflag: Hiermit wird angezeigt, ob das Programm 
gerade dabei ist, ein bißchen Rubberbanding durchzuführen. 


3.3.5.4 Und wie programmiere ich nun Menüs? 

Das ist gar nicht so schwer - erfordert jedoch eine ganze Menge 
Schreibarbeit. Jedes Menü und jedes Untermenü braucht näm¬ 
lich eine eigene Struktur. Doch schauen wir uns das ganze ein¬ 
mal im Programm an: 
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Ab Zeile 131 wird das gesamte Menü initialisiert. Jeder Menü¬ 
punkt belegt dabei eine Struktur vom Typ Menuitem. Diese 
Struktur hat folgende Komponenten: 

Nextltem: Zeigt auf den nächsten Menüpunkt. Dadurch können 
mehrere Menüpunkte in einer Liste miteinander verbunden wer¬ 
den. 

LeftEdge: X-Wert des Punktes, an dem der Menüpunkt anfan¬ 
gen soll. 

TopEdge: Y-Wert dieses Punktes. 

Width: Länge des Menüpunktes in Bildschirmpixel. 

Height: Höhe des Menüpunktes - auch in Bildschirmpixel. 

Flags: Hier kann man eine ganze Menge Flags setzen, und so 
auch eine ganze Menge bestimmen. Einige Flags sind: 

ITEMTEXT: Ist dieses Flag gesetzt, so besteht der Inhalt des 

Menüpunktes aus Text. Ist dieses Flag nicht 
gesetzt, so ist es ein Bild und wird somit mit 
einer Image-Struktur beschrieben. 

HIGHCOMP: Ist dieses Flag gesetzt, so werden alle Bits in¬ 

nerhalb des Menüpunktes komplementär dar¬ 
gestellt, wenn der Benutzer diesen Menüpunkt 
auswählt. 

HIGHBOX: Zieht ein Rechteck um den Menüpunkt, wenn 

er angewählt wird. 

HIGHIMAGE: Wird ein Menüpunkt, der dieses Flag gesetzt 

hat, vom Benutzer ausgewählt, so wird inner¬ 
halb des Menüpunktes ein völlig neues Image 
dargestellt. 
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HIGHNONE: Setzen Sie dieses Flag, falls Sie keine Reaktion 

auf das Auswählen eines bestimmten Menü¬ 
punktes wollen. 

ITEMENABLED:Erlaubt dem Benutzer das Anwählen dieses 
Menüpunktes. 

MutualExclude: Oh Gott, dies ist wirklich schwierig in wenigen 
Worten zu erklären und wird deshalb vorerst ausgelassen. 

ItemFill: Hier kommt die Adresse der Struktur hinein, die be¬ 
schreibt, was innerhalb des Menüpunktes erscheinen soll. Dies 
könnte z.B. eine IntuiText-Struktur sein, falls Text dargestellt 
werden soll. Es könnte jedoch auch die Adresse einer Image- 
Struktur sein. Denken Sie daran, das entsprechende Flag zu set¬ 
zen. 

Beim Malprogramm bestehen die vier Menüpunkte des ersten 
Menüs (Action) aus Texten, und demnach wird eine IntuiText- 
Struktur für jeden dieser Menüpunkte verwendet. Die vier 
Menüpunkte unter Color bestehen aus einfachen Images (ohne 
jegliches Bild, nur verschiedene Farben), und so wird für diese 
eine Image-Struktur verwendet. 

SelectFill: Ähnlich wie ItemFill, jedoch für eine IntuiText- oder 
Image-Struktur. Wird in den Menüpunkt eingesetzt, wenn das 
Flag HIGHIMAGE für diesen Menüpunkt gesetzt wurde. 

Command: Wurde das Flag COMMSEQ gesetzt, so enthält diese 
Komponente ein alphanumerisches Zeichen, das zusammen mit 
der rechten Amiga-Taste als Abkürzung für diesen Menüpunkt 
gelten kann. 

Subitem: Wenn dieser Menüpunkt irgendwelche Untermenü¬ 
punkte besitzen soll, muß diese Variable auf das erste dieser 
Untermenüpunkte zeigen. Bei einem Untermenüpunkt wird diese 
Komponente nicht beachtet; man kann also nicht noch weiter 
verschachteln. 
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NextSelect: Diese Variable wird von Intuition gefüllt, und gibt 
an, ob noch weitere Menüpunkte vom Benutzer ausgewählt wur¬ 
den. Soviel zur Menuitem-Struktur. 

Mehrere Menüpunkte werden zu einem Menü mittels der Menu- 
Struktur zusammengefaßt. Diese Struktur enthält acht Kompo¬ 
nenten, und zwar folgende: 

NextMenu: Zeigt auf die Menu-Struktur des nächsten Menüs. 
Mit dieser Komponenten können also mehrere Menüs miteinan¬ 
der verbunden werden. 

Le ft Ed ge, TopEdge, Width, Height: Geben Koordinaten und 
Größe des Menüpunktes an. 

Flags: MENUENABLED: Erlaubt dem Benutzer das Auswählen 
dieses Menüs. 

MenuName: Name des Menüs. Achten Sie darauf, daß der Name 
in das angegebene Feld paßt. 

Firstitem: Zeigt auf die Menuitem-Struktur des ersten Menü¬ 
punktes für dieses Menü. 


Nachdem nun alle Menüpunkte und Menüs miteinander verbun¬ 
den worden sind, wird die Menüleiste mittels des Intuition-Be¬ 
fehls SetMenuStrip gesetzt. Dieser Befehl benötigt zwei Argu¬ 
mente: 

Window: Zeiger auf die Window-Struktur des Windows, für 

das dieses Menü gesetzt werden soll. 

Menu: Zeiger auf die Menu-Struktur des ersten Menüs. 


Gelöscht werden kann eine Menüleiste mit dem Intuition-Befehl 
ClearMenuStrip. Dieser benötigt nur ein Argument: Einen Zeiger 
auf die Window-Struktur des Windows, dessen Menüs gelöscht 
werden sollen. 
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Gut, die Menüleiste ist nun vorhanden, und kann vom Benutzer 
angewählt werden. Doch wie wird dem Programm übermittelt, 
welcher Menüpunkt gefragt ist? Werfen Sie dazu einen Blick auf 
das Listing: 

In Zeile 236 wartet das Programm darauf, daß Intuition eine 
Nachricht übermittelt. Dies wird kenntlich gemacht durch Setzen 
des Signal-Bits am Userport. Nachdem die Nachricht angekom¬ 
men ist, wird sie in Zeile 238 abgespeichert. In den Zeilen 240 
und 241 werden zwei Werte, die die Nachricht genau beschrei¬ 
ben, in den beiden Variablen Class und Code abgelegt. 

Nun kann die Nachricht am Userport gelöscht werden. Das ge¬ 
schieht mittels ReplyMsg in Zeile 243. Ist die Variable Class 
gleich MENUPICK, so gibt Intuition bekannt, daß der Benutzer 
einen Menüpunkt ausgewählt hat. In diesem Fall geht der Pro¬ 
grammablauf in Zeile 276 weiter. 

Der Macro MENUNUM gibt die Nummer des Menüs, in der der 
ausgewählte Menüpunkt liegt, an das Programm zurück. Dadurch 
kann eine erste Unterscheidung getroffen werden. Mit dem 
Macro ITEMNUM kann nun genau die Nummer des ausgewähl¬ 
ten Menüpunktes bestimmt werden. 

Ist zum Beispiel die Menünummer = 0 und die Itemnummer = 2, 
so wurde vom Benutzer der dritte Menüpunkt im ersten Menü 
ausgewählt (das erste Menü bzw. der erste Menüpunkt hat die 
Nummer 0 und nicht 1). Also will der Benutzer den Bildschirm 
löschen (ERASE), und der Programmablauf geht in Zeile 294 
weiter. 

Um die Nummer von Untermenüpunkten zu bestimmen, exi¬ 
stiert auch noch der Macro SUBITEM. 


3.3.5.5 Requester ganz automatisch 

Das Malprogramm benutzt auch Requester. Keine aufwendigen, 
grafikunterstützen, mit zahlreichen Gadgets versehene Reque- 
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ster, sondern einen ganz einfachen. Dieser dürfte jedoch in den 
meisten Fällen auch ausreichen. Außerdem ist er um vieles ein¬ 
facher zu programmieren als jeder andere Requester. 

Dazu gebraucht man einfach die Intuition-Funktion AutoRe- 
quest. Diese Funktion erwartet einige Argumente: 

1. Einen Zeiger auf die Window-Struktur des Windows, 
in dem der Requester erscheinen soll. 

2. Einen Zeiger auf die IntuiText-Struktur für den 
Text, der über den beiden Requester-Gadgets 
erscheinen soll. 

3. Einen Zeiger auf die IntuiText-Struktur des Textes, 
der in dem linken Gadget erscheinen soll. 

4. Und hier der Zeiger für das rechte Gadget. 

5. IDCMP-Flags, die, wenn sie auftreten, das gleiche 
bewirken, wie wenn der Benutzer das linke Gadget 
angeklickt hat. 

6. IDCMP-Flags für das rechte Gadget. 

7. Die Breite des Requesters in Bildschirmpunkten. 

8. Die Höhe des Requesters in Bildschirmpunkten. 


Aufgerufen wird die Funktion AutoRequest innerhalb des Mal¬ 
programmes in den Zeilen 294 bzw. 301 - jedesmal mit den 
gleichen Argumenten. 

Bei Aufruf gibt die Funktion AutoRequest einen Wert zurück. 
Dieser Wert ist TRUE, wenn die Bedingung des linken Gadgets 
erfüllt wurde, und FALSE, wenn die Antwort dem rechten 
Gadget entsprach. 
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Noch ein Tip: Eine sinnvolle Möglichkeit bei dem fünften bzw. 
sechsten Argument des AutoRequest-Befehls sind die Flags 
DISKINSERTED bzw. DISKREMOVED. Bei diesen Flags wird 
der Requester beendet, wenn eine Disk in ein Laufwerk hinein¬ 
geschoben bzw. herausgeholt wird. 


3.3.5.6 Rubberbanding 

Ihnen sagt der Begriff "Rubberbanding" überhaupt nichts? Sie 
werden est nicht glauben, aber Sie arbeiten wahrscheinlich täg¬ 
lich damit! Jedesmal, wenn Sie ein Window vergrößern oder 
verkleinern, benutzen Sie Rubberbanding. 

Unser Malprogramm benutzt Rubberbanding, wenn ein 
Rechteck gemalt werden soll. Solange der Benutzer noch nicht 
zum zweiten Mal den linken Mausknopf gedrückt hat, kann er 
auf dem Bildschirm hin- und herfahren, und zieht dabei vier 
zusammenhängende Linien munter hin und her. Diese Linien 
übermalen jedoch nichts. Diesen Effekt nennt man 
Rubberbanding. Rubberbanding könnte auch auftreten, wenn 
man mit einem Malprogramm, zum Beispiel Graphicraft, Linien 
zeichnen will. Oder Kreise. 

Beim Rubberbanding benutzt man den Drawmode COMPLE- 
MENT. Dieser Modus sorgt dafür, daß beim Zeichnen nicht ir¬ 
gendwelche absoluten Farben benutzt werden; stattdessen wird 
einfach die Hintergrundfarbe komplementiert. So wird aus %01 
= Farbregister 1 das Farbregister %10 = 2. Und aus %10111 wird 
%01000. Weiterhin nutzt Rubberbanding aus, daß man eine 
Linie, die im COMPLEMENT-Modus gezeichnet wurde, ganz 
einfach wieder löschen kann, indem man - immer noch im 
Zeichen-Modus COMPLEMENT - die gleiche Linie noch einmal 
zieht. So wird aus % 10100 der Wert %01011, und schließlich 
wieder % 10100. 

In dem Programms sieht das so aus: 

Drückt der Benutzer zum ersten mal den linken Mausknopf, so 
wird in den Zeilen 323 bis 332 ein Rechteck im COMPLE- 
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MENT-Modus an der aktuellen Mausposition gezeichnet. 
Außerdem wird mittels des Flags RMBTRAP dafür gesorgt, daß 
das Drücken der rechten Maustaste zu einer ganz normalen 
MOUSEBUTTONS-Nachricht führt. 

Fährt der Benutzer nun mit der Maus hin und her, so gerät das 
Programm in die Zeilen 347 bis 354. Hier wird zuerst mit den 
alten Rechteck-Koordinaten noch ein Rechteck gezogen. Da¬ 
durch wird das alte Rechteck gelöscht. Danach wird die aktuelle 
Mausposition als neuer Endpunkt des Rechteckes gesetzt, und 
mit diesen neuen Werten wieder ein Rechteck gezogen. Dieses 
erscheint nun jedoch auf dem Bildschirm, und wird erst beim 
nächsten mal wieder gelöscht. 

Ist der Benutzer schließlich der Meinung, daß das Rechteck an 
der richtigen Position ist, so drückt er noch einmal die linke 
Maustaste, und landet in Zeile 335. Hier wird der Rubberband- 
Modus beendet, die rechte Maustaste wieder auf den normalen 
Stand gebracht, und schließlich das gewünschte Rechteck 
gezeichnet - diesmal jedoch nicht im COMPLEMENT-Modus, 
sondern mit der ganz normalen Zeichenfarbe. 

Ist der Benutzer der Meinung, das Rechteck, daß er gerade im 
Rubberband-Modus mit sich rumzieht, beginnt eigentlich am 
falschen Punkt, oder gehört überhaupt nicht auf den Bildschirm, 
so braucht er nur die rechte Maustaste zu drücken. In diesem 
Fall geht der Programmablauf in Zeile 265 weiter. Hier wird 
mittels des COMPLEMENT das zuletzt gezeichnete Rechteck 
gelöscht. Dann wird die rechte Maustaste wieder normalisiert, 
und schließlich durch Rücksetzen der Flags der Rubberband- 
Modus beendet. 


3.3.5.7 Ein Schlußwort 

Das Malprogramm ist natürlich nur ein grobes Gerüst. Es fehlen 
noch Menüpunkte zum Laden, Speichern und Ausdrucken der 
Bilder. Doch beginnt man erst einmal damit, dann braucht man 
auch noch Kreise, 32 Farben, und Interlace. Also haben wir hier 
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aufgehört. Da das Programm jedoch einigermaßen übersichtlich 
und durchstrukturiert geschrieben wurde, dürfte es nicht weiter 
schwierig sein, entsprechende Menüpunkte einzubauen. 


3.3.6 Und noch ein Grafik-Modus: Half-Brite 

Sie haben gelesen, daß der Amiga bei seiner niedrigsten Auflö¬ 
sung von 320 * 200 Bildschirmpunkte 32 Farben darstellen kann, 
und waren total begeistert? Was halten Sie dann davon, wenn 
wir Ihnen sagen, daß der Amiga bei dieser Auflösung 64 ver¬ 
schiedene Farben darstellen kann? 64 mögliche Farben für jeden 
Bildschirmpunkt! 

Wollen Sie auch? Gut, dann benutzen Sie doch in Zukunft den 
Half-Brite-Modus. Der Half-Brite-Modus wird eingeschaltet, 
indem man beim Eröffnen eines neuen Screens in der Screen- 
struktur die Komponente Depth auf 6, und die Komponente 
ViewModes mit dem Flag EXTRA_HALFBRITE belegt. 

Und hier das obligatorische Demo-Programm: 


tfinclude <exec/types.h> 
tfinclude <intuition/intuition. h> 


struct IntuitionBase *IntuitionBase; 
struct GfxBase *GfxBase; 


main () 

{ 

struct Screen *Screen; 
struct Window *Window; 
struct NewScreen NewScreen; 
struct NewWindow NewWindow; 
COUNT zaehler; 
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IntuitionBase = (struct IntuitionBase *) 

OpenLibrary (”intuition.library", 0) 

if (IntuitionBase == NULL) 

{ 

printf (“Help if You can I'm feeling down. , . \n"); 
exit (FALSE); 

} 

GfxBase = (struct GfxBase *) OpenLibrary ("graphics. libra 
ry“, 0); 

if (GfxBase == NULL) 

{ 

printf ("Help! I need somebody. . . \n"); 

CloseLibrary (IntuitionBase); 
exit (FALSE); 

} 


NewScreen. LeftEdge = 0; NewScreen.TopEdge = 0; 
NewScreen. Width = 320; NewScreen.Height = 200; 
NewScreen. Depth = 6; 

NewScreen.DetailPen = 0; NewScreen.BlockPen = 1; 
NewScreen.ViewModes = EXTRA„HALFBRITE; 

NewScreen.Type = CUSTOMSCREEN; 

NewScreen.Font = NULL; 

NewScreen.DefaultTitle = NULL; 

NewScreen.Gadgets = NULL; 

NewScreen. CustomBitMap = NULL; 

Screen = (struct Screen *) OpenScreen (&NewScreen); 
if (Screen == NULL) 

{ 

printf ("Sorry, no Screen...\n"); 

CloseLibrary (IntuitionBase); 

CloseLibrary (GfxBase); 
exit (FALSE); 

} 
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NewWindow.LeftEdge = 0; NewWindow.TopEdge = 0; 

NewWindow.Width = 320; NewWindow.Height = 200; 

NewWindow.DetailPen = 0; NewWindow. BlockPen = 1; 
NewWindow.IDCMPFlags = NULL; 

NewWindow.Flags = SMART_REFRESH ! BACKDROP ! BORDERLESS » 
ACTIVATE | 

NOCAREREFRESH; 

NewWindow.FirstGadget = NULL; 

NewWindow.CheckMark = NULL; 

NewWindow.Title = NULL; 

NewWindow,Screen = Screen; 

NewWindow.BitMap = NULL; 

NewWindow.MinWidth = NULL; NewWindow.MinHeight = NULL; 
NewWindow.MaxWidth - NULL; NewWindow. MaxHeight = NULL; 
NewWindow.Type = CUSTOMSCREEN; 

Window = (struct Window *) OpenWindow (&NewWindow); 
if (Window == NULL) 

{ 


printf C’Sorry, no Window...\n“); 
CloseLibrary (IntuitionBase); 
CloseLibrary (GfxBase); 
CloseScreen (Screen); 
exit (FALSE); 


ShowTitle (Screen, FALSE); 
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for (zaehler = 0; zaehler < 64; zaehler++) 

{ 

SetAPen (Window->RPort, zaehler); 

RectFill (Window->RPort, zaehler * io, 0, (zaehler * 1 
0) + 4, 200); 

SetAPen (Window->RPort, zaehler + 32); 

RectFill (Window->RPoi‘*t, (zaehler * 10) + 5, 0, (zaehl 
er * 10) + 9, 200); 

} 


while ((Window->MouseX != 0) I! (Window->MouseY 0)); 


CloseWindow (Window); 
CloseSereen (Screen); 
CloseLibrary (GfxBase); 
CloseLibrary (IntuitionBase); 


In Zeile 41 wird die Anzahl der Bitplanes mit 6 angegeben, und 
in Zeile 43 wird nicht INTERLACE, HIRES sondern EX¬ 
TRA_HALFBRITE gesetzt. Danach wird wieder das Backdrop- 

Borderless-Window eröffnet, und die Titelzeile gelöscht. 

Und in Zeilen 91-97 werden nun 64 Streifen in den Farben der 
64 Farbregister auf den Bildschirm gebracht. Dabei wird zuerst 
eines der Farbregister 0-31 benutzt und sofort rechts daneben 
ein Rechteck in der Farbe des Farbregisters, welches 32 Num¬ 
mern höher liegt, gemalt. 

Wenn Sie das Programm nun gestartet haben, bewundern Sie die 
Vielfalt. Doch schauen Sie nun etwas genauer hin. Fällt Ihnen 
etwas auf? 

O.K., wir beichten: In Wirklichkeit können zwar 64 verschiedene 
Farben dargestellt werden, jedoch nicht 64 verschiedene. Die 
Inhalte der oberen 32 Farbregister wird durch die Inhalte der 
unteren 32 bestimmt: 

Es gehören immer zwei Register zusammen: 0 und 32, 1 und 33, 
2 und 34, usw. Das höhere Farbregister enthält dabei die Rot-, 
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Blau- und Grün-Anteile der Farbe des niedrigeren Registers, 
alle ein Bit nach rechts geschoben. So wird aus dem Grünanteil 
%1010 = 10 der Grünanteil %0101 = 5. 

Schauen Sie nun noch einmal genau die 64 Rechtecke an. Der 
rechte Balken ist immer von der gleichen Farbe wie der linke - 
jedoch doppelt so dunkel (oder auch halb so hell; daher auch der 
Name Half-Brite). 

Wichtig ist beim Halfbrite-Modus ein geschicktes Belegen der 
Farbregister, aus zwei verschiedenen Farbregisterinhalten kann 
durchaus die gleiche Half-Brite-Farbe werden. So ergeben 
sowohl % 1101 als auch % 1100 die Halfbrite-Farbe %0110, da 
das Bit 0 einfach rausgeschoben wird, und somit keine Bedeu¬ 
tung hat. 

Ach ja, beenden kann man das Demoprogramm, indem man den 
Mauszeiger in die linke obere Ecke des Bildschirms bringt (Zeile 
101 ). 


3.3.7 Interlace - soweit das Auge blickt 

Der Amiga kennt zahlreiche verschiedene Grafikauflösungen. 
Zuerst einmal gibt es da die Grundauflösung von 320 * 200 
Bildschirmpixel. Gibt man beim Eröffnen eines Screens bei der 
Komponente ViewModes das Flag HIRES an, so erhält man ein 
Auflösung von 640 * 200 Bildschirmpixel, d.h. die horizontale 
Auflösung wird verdoppelt. Gibt man dagegen das Flag INTER¬ 
LACE an, so verdoppelt sich die vertikale Auflösung von 200 
Bildschirmpixel. Kombiniert man die Flags HIRES und INTER¬ 
LACE so ergibt sich die maximale (naja, nahezu maximale...) 
Bildschirmauflösung von 640 * 400 Pixel. 

Beim Interlace-Modus wird das Bild in zwei Teilbilder aufge¬ 
teilt, die um eine Bildschirmzeile versetzt immer abwechselnd 
auf den Bildschirm gebracht werden. Diesen Trick mußte man 
sich einfallen lassen, da 400 Bildschirmzeilen nicht mehr einfach 
so hintereinander dargestellt werden können. 
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Leider flackert der Bildschirm im Interlace-Modus etwas (bzw. 
etwas mehr), da die effektive Bildschirm-Frequenz halbiert 
wurde, und so das menschliche Auge schon die einzelnen Bilder 
unterscheiden kann. 

Doch zahlreiche Grafikanwendungen kommen ohne die Auflö¬ 
sung von 640 * 400 Pixel nicht aus, also muß trotz dieses starken 
Nachteiles auf den Interlace-Modus zurückgegriffen werden. 

Das Flackern läßt sich übrigens stark herabsetzen bzw. ganz 
ausschalten, wenn man einerseits die Regler für Helligkeit bzw. 
Kontrast am Monitor etwas verändert, sowie andererseits die 
verwendeten Bildschirmfarben mit Hilfe von Preferences etwas 
nachstellt (so sollte man aus dem Weiß ein helles Grau machen). 
Am besten solange rumprobieren, bis ein annehmbares Bild 
erreicht ist. 

Hier nun ein kleines Programm zum Interlace-Modus. Das fertig 
compilierte und gelinkte Programm wird folgendermaßen auf¬ 
gerufen (angenommen, Sie haben das Programm wie wir "Inter- 
lace" genannt): 

"Interlace on": Schaltet Interlace-Modus für alle momentan offe¬ 
nen Screens ein. 

"Interlace off": Schaltet den Interlace-Modus wie der aus. 

So, und hier nun das Listing: 


ttinclude <qraphics/afxbase.h> 

# inelüde <intuition/intuition.h> 


struct GfxBase *Gf>;Base; 

struct IntuitionBase *IntuitionBase? 
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main (arge, arov) 
int aroc; 
char *arqvC3s 

BOOL InterlaceQN: 


i f (arqc ! = 2) 

•C 

printf (“Ein Argument: 'an' oder ' of f ' \n " > ; 
ex i t (FALSE); 


if <! stremp (arqvCll, "on")) 

Inter!aceON = TRUE; 
eise if (! st.rcmp (aravClU, "oft 1 ')) 

InterlaceON = FALSE; 
eise 
■C 

printf (“??? Entweder ‘on' oder 'off* ! ! !\n")i 
ex i t (FALSE); 


Gfxßase ~ (struct Gf xBase *) GoenLibrarv ("qraphics. 1 ibrarv”, 0) 
if (ßfxBase NULL) 

jr 

printf ("Mal wieder keine Graphik~Bibliothek. . . \n M >5 
exit (FALSE); 


IntuitionBase ~ (struct IntuitionBase *) 

üpenLibrarv ("intuition,library", 0): 
if (IntuitionBase NULL) 


printf ("Diesmal fehlt die Intui tion-Librarv...\n ">5 
CloseLibrarv (GfxBase); 
exit (FALSE): 
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(InterlaceON) 

G-f kB ase->svstem bpi conO !" INTERLACE; 
el se 

G-f KBase->svstem_bpl conO &» ! INTERLACE; 


RemakeDiaplav <); 


CloseLibrarv <IntuitionBase)s 
CloseLibrary (6-fxBase) ; 


Vielleicht sollten wir auch noch ein paar Erklärungen abgeben: 

Die Variable "InterlaceON" ist ein Flag und kann 
demnach zwei Zustände annehmen: TRUE, wenn der 
Interlace-Modus eingeschaltet, und FALSE, falls er 
wieder ausgeschaltet werden soll. 

In den Zeilen 20-34 werden die Argumente, die der 
Benutzer hinter dem Programmnamen angegeben hat, 
ausgewertet. Zuerst einmal wird geschaut, ob über¬ 
haupt die richtige Anzahl (eins!) von Argumenten 
vorliegt. Ist dies nicht der Fall, so wird in Zeile 22 
eine entsprechende Meldung ausgegeben, und das 
Programm beendet. Sodann wird geprüft, ob das Ar¬ 
gument "on" angegeben wurde. Wenn ja, so wird das 
Flag InterlaceON für spätere Verwendung auf TRUE 
gesetzt. Wenn nein, so wird weiter getestet: Wurde 
das Argument "off" angegeben? Wenn ja, so wird 
wieder das Flag InterlaceON für spätere Verwendung 
gesetzt - diesmal auf FALSE. Wenn nein, so wird 
eine Meldung für den Benutzer ausgegeben, da er 
ein falsches Argument angegeben hat. 

Danach werden die Intuition- und die Grafik-Bi¬ 
bliothek eröffnet. Hat irgendetwas dabei nicht 
geklappt, so wird eine entsprechende Meldung aus¬ 
geben, alles wieder geschlossen, was vorher irgend¬ 
wann mal eröffnet wurde, und dann das Programm 
beendet. 
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Und dann kommen schließlich die alles entscheiden¬ 
den Zeilen: 57-60. In Zeile 57 wird das Flag Inter- 
laceON abgefragt. Ist es gesetzt (TRUE), so wird die 
Komponente system_bplconO mit dem Macro IN- 
TERLACE logisch oder verknüpft, d.h. das Flag IN- 
TERLACE wird gesetzt. Ist InterlaceON auf FALSE 
gesetzt, so werden die einzelnen Bits des Flags 
INTERLACE innerhalb der Komponenten 
system_bplconO mittels einer logsichen Und-Ver- 
knüpfung gelöscht. 

Warum eigentlich ausgerechnet die Komponente sy- 
stem_bplconO? Diese Komponente hat eine 
besondere Funktion. Um diese Funktion zu erklären, 
müssen wir etwas weiter ausholen: Die gesamte 
Grafik wird beim Amiga nicht durch den 68000 
erledigt, sondern durch den Copper, einen 
Koprozessoren. Dieser Koprozessor verfügt über eine 
eigene Maschinensprache. Alles, was Sie auf dem 
Bildschirm sehen, seien es Screens, Windows, 
Gadgets oder Grafiken, wird in diese 
Maschinensprache übersetzt. Das dabei entstehende 
Programm wird dann vom Copper ausgeführt; der 
Copper führt daraufhin bestimmt Aktionen aus, und 
läßt so das auf dem Monitor zu sehende Bild 
erscheinen. Die Maschinensprache-Listings greifen 
ziemlich oft auf ein bestimmtes Hardware-Register 
zurück. Dieses Hardware-Register nennt sich 
bplconO; es enthält die möglichen Darstellungsmodi 
wie HIRES, SPRITES - und auch INTERLACE. 

Die Komponente system_bplconO innerhalb der 
GfxBase-Struktur steht nun - wie unschwer am 
Namen zu erkennen - in enger Verbindung zu 
diesem Hardware-Register. Jedesmal wenn ein 
Copper-Maschinensprache-Listing auf dieses 
Hardware-Register zugreift, wird diese Komponente 
logisch oder mit diesem Hardware-Register 
verknüpft. Dadurch werden automatisch alle Flags, 
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die in der Komponente gesetzt sind, auch in dem 
Hardware-Register gesetzt. Setzen wir nun in der 
Komponente das Flag INTERLACE, so wird auch in 
allen Copper-Listings das Flag INTERLACE gesetzt. 
Und so haben auf einmal alle Screens den Interlace- 
Modus eingeschaltet. 

In Zeile 64 wird schließlich mit dem Intuition- 
Befehl RemakeDisplay dafür gesorgt, daß alle 
Maschinensprache-Listings, die den Copper dazu 
veranlassen, das aktuelle Bild darzustellen, neu 
gebildet werden. Beim neuen Bilden wird die Kom¬ 
ponente system_bplconO mit dem Hardware-Register 
bplconO oder-verknüpft, und so stellen alle Listings 
jetzt - ob vorher gewollt oder nicht - den Interlace- 
Modus an. 


Wird ein Screen, der vorher nicht im Interlace- 
Modus war, auf einmal in den Interlace-Modus 
umgeschaltet, so ergibt sich dennoch kein allgemei¬ 
nes Chaos - es wird einfach jede Pixelzeile verdop¬ 
pelt. Im Gegenteil - läßt sich das Flackern abschal¬ 
ten, so ist das Bild nun besser als vorher, da die 
schmalen Leerzeilen zwischen den einzelnen Bild¬ 
schirmzeilen verschwunden sind, und man so nicht 
mehr die einzelnen Punkte bei Buchstaben und Gra¬ 
fiken erkennen kann. 


3.4 Devices 

Die Programmierer des Amiga haben versucht, das System mög¬ 
lichst ausbaufähig und dennoch einfach zu halten. So hat man 
auch bei den Devices versucht, einen gewissen Standard zu 
erreichen, damit für den Programmierer zwischen den einzelnen 
Devices kaum ein Unterschied besteht. 
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So hat jedes Device eine Sprungtabelle mit Standardfunktionen 
wie READ, WRITE, RESET, etc. Zusätzlich hat jedes Device 
noch einige Extra-Befehle, zum Beispiel FORMAT beim Track- 
disk-Device. 


3.4.1 "Etwas Theorie" oder "Wie eröffne ich ein Device?" 

Da die Devices für den Programmierer alle ziemlich gleich aus- 
sehen, kann man auch für alle so ziemlich die gleiche Pro¬ 
grammschritte verwenden: 

1. Definieren eines Zeigers auf eine Struktur vom Typ Msg- 
Port: 

struct MsgPort *deviceport; 

2. Definieren eines Zeigers auf eine Struktur vom Typ 
lOStdReq: 

struct IOStdReq *devicemsg; 

3. Eröffnen eines Messageports und auf Fehler checken: 

deviceport = (struct MsgPort *) 

CreatePort (#name, #priorität); 
if (deviceport == NULL) errorhandling; 

4. Initialisieren des Requests & auf Fehler checken: 

devicemsg = (struct IOStdReq *) 

CreateStdIO (deviceport); 
if (devicemsg == NULL) errorhandling; 

5. Eröffnen des Devices & auf Fehler checken: 

if (OpenDevice (#devicename, #unit # devicemsg, 

#flags) != 0) errorhandling; 
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6. Gewünschten Befehl in den Request eintragen: 

device->io_Command = #command; 
device->io_Actual = #data; 
device->io_Length = #data; 
device->io_Data = #data; 


7. Senden der Nachricht zum Device. Hier gibt es zwei Mög¬ 
lichkeiten: 

DoIO (devicemsg): Schickt die Nachricht ab, und wartet, 
bis das Device den Befehl ausgeführt hat. 

SendIO (devicemsg): Schickt die Nachricht ab, und 
kommt sofort wieder zurück. Dadurch können noch andere 
Aktionen ausgeführt werden, während das Device arbeitet. 
Um zu testen, ob das Device inzwischen fertig ist, benutzt 
man den Befehl ChecklO (devicemsg). Ist das Device noch 
nicht fertig, so gibt ChecklO den Wert 0 zurück. Ist das 
Device fertig, so bekommt der Aufrufer einen Zeiger auf 
den Request. 

8. Schließen des Devices, des Requests und des Ports: 

CloseDevice (devicemsg); 

DeleteStdIO (devicemsg); 

DeletePort (deviceport); 


Abhängig vom verwendeten Device kann es zu einigen 
Änderungen dieses Ablaufs kommen. 


3.4*2 Maus verändern mit dem Input-Device 

Das Input-Device verfügt über zwei recht interessante Befehle: 
SETMPORT und SETMTYPE. Mit SETMPORT kann bestimmt 



Programmieren unter C _ 295 

werden, an welchem Port das Gerät ist, das den Mauszeiger 
kontrolliert. Mit SETMTYPE wird die Art dieses Gerätes fest¬ 
gelegt. 

Kontrollieren Sie jedoch vorher, ob Sie (wie wir) eine alte Ver¬ 
sion des Headerfiles input.h besitzen. Bei dieser Version sind die 
Befehle SETMPORT und SETMTYPE nicht implementiert. Das 
Headerfile sollte ungefähr so aussehen: 

tfifndef DEVICES_INPUT_H 
tfdefine DEVICES_INPUT_H 

/* ******* ********* ****** *********** ****************** sic****** 


**********/ 


/* 

Commodore-Amiga Inc 

*/ 


/* 

input.h 

*/ 



/*********************************************************** 

/*********************************************************** 

* 

* input device comraand definitions 

* 

****************************************C******************** 

tfifndef ^XEC^IOJ 

tfinclude M exec/io. h“ 

#endi£ 

#define IND_ADDHANDLER (CMD_NONSTD+0) 

#define INDJREMHANDLER (CMD_NONSTD+1) 

#define IND_WRITEEVENT (CMD_N0NSTD+2) 

#define IND_$ETTHRESH (CMD„N0NSTD+3) 

#def ine IND_SETPERIOD (CMDJONSTD+4) 

#define IND__SETMPORT (CMD_N0NSTD+5) 

tfdefine INDjSETMTYPE (CMD__N0NSTD+6) 

#define INDJ5ETMTRIG (CMD_N0NSTD+7) 


tfendif 
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Zuerst einmal ein Programm zu dem Befehl SETMTYPE: 


tfinclude <exec/types.h> 
tfinclude <exec/devices.h> 
tfinclude <devices/input. h> 


main (arge, argv) 
int arge; 
char *argv[]; 

{ 

struct MsgPort *deviceport; 
struct IOStdReq *devicerasg; 
UBYTE mouseport; 


if (arge != 2) 

{ 

printf (“Bad args\n“); 
exit (FALSE); 


switch (argv[l][0]) 

{ 

case '?': 

printf (“Ein Argument: Nr. des Ports fuer die Maus 
(0 / 1) \n“ ); 

exit (TRUE); 

case '0': 

mouseport = 0; 
break; 

case '1': 

mouseport = 1; 
break; 

default: 

printf (“Bad args: 0 or l\n“); 
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exit (FALSE); 

} 


deviceport = (struct MsgPort *) CreatePort (0, 0); 
if (deviceport == NULL) 

{ 

printf (”Sorry, no DevicePort\n“); 
exit (FALSE); 

} 


devicemsg = (struct IOStdReq *) CreateStdIO (deviceport); 

if (devicemsg == NULL) 

{ 

printf (“Sorry, no DeviceMsg\n"); 

DeletePort (deviceport); 
exit (FALSE); 

} 


if (OpenDevice ("input. device“, 0, devicemsg, 0) 1= 0) 

{ 

printf ("Sorry, no InputDevice\n'‘); 

DeletePort (deviceport); 

DeleteStdIÖ (devicemsg); 
exit (FALSE); 

} 


devicemsg->io_Command = IND_SETMPORT; 
devicemsg->io_Data = (APTR) &mouseport; 
devicemsg->io_Length = 1; 


DoIO (devicemsg); 
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CloseDevice (devicemsg); 

DeleteStdIO (devicemsg); 

DeletePort (deviceport); 

} 

Bei Aufruf dieses Programmes müssen Sie ein Argument über¬ 
geben. Dieses Argument kann entweder 0 oder 1 sein, je nach¬ 
dem, an welchem Port die Maus anliegen soll. In den Zeilen 24 
bis 41 wird getestet, ob die richtigen Argumente vorliegen. Ist 
dies nicht der Fall, so wird das Programm mit einer entspre¬ 
chenden Mitteilung beendet. 

Danach werden der Reihe nach ein Port, ein Standard- Request, 
und danach das Input-Device eröffnet. 

In den Zeilen 72 bis 74 werden dann die notwendigen Variablen 
zum Befehl SETMPORT gesetzt. Dazu muß in die Komponente 
io_Command innerhalb der Device-Message das Flag 
IND_SETMPORT gesetzt werden. In io_Data kommt ein Zeiger 
auf das Byte, das angibt, ob der Mausport 0 oder 1 gesetzt wer¬ 
den soll. Und schließlich muß Length noch mit 1 belegt werden. 

Danach kann der Befehl an das Input-Device gesendet werden. 
Da sonst nichts weiter geschehen soll, wird dieses mit dem 
Befehl DoIO vollbracht. 

Nachdem alles gut abgelaufen ist, wird das Device, der Request 
und der Port wieder geschlossen, und das Programm beendet. 

Nun ein Programm zu dem zweiten Befehl: 
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tfinclude <exec/types. h> 
tfinclude <exec/devices. h> 
ttinclude <devices/input.h> 
ttinclude <devices/garaeport. h> 


main (arge, argv) 
int arge; 
char *argv[]; 

{ 

struct MsgPort *deviceport; 
struct IQStdReq *devicemsg; 
UBYTE mousetype; 


if (arge != 2) 

{ 

printf (“leb brauche 1 Argument...\n" 
exit (FALBE); 

} 


switch (argv[l][0]) 

{ 

case '?': 

printf ("Art der Maus: m = Maus, j 
exit (TRÜE); 

case 'm': 

mousetype = GPCT_MOUSE; 
break; 

case 'y• 

mousetype = GPCT_RELJOYSTICK; 
break; 

default: 

printf ("Falscher Aufruf\n M ); 


= Joystick\n"); 
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exit (FALSE); 

> 


deviceport = (struct MsgPort *) CreatePort (0, 0); 
if (deviceport == NULL) 

{ 

printf ("Sorry, no Deviceport\n”); 
exit (FALSE); 


devicemsg = (struct IOStdReq *) CreateStdIO (deviceport); 

if (devicemsg == NULL) 

{ 

printf ("Sorry, no DeviceMsg\n"); 

DeletePort (deviceport); 
exit (FALSE); 

} 


if (OpenDevice ("input.device", 0, devicemsg, 0) != 0) 

{ 

printf ("Sorry, no InputDevice\n"); 

DeletePort (deviceport); 

DeleteStdIO (devicemsg); 
exit (FALSE); 

> 


devicemsg->io_Command = IND_SETMTYPE; 
devicemsg->io_Data = (APTR) &mousetype; 
devicemsg->io_Length = 1; 


Do10 (devicemsg); 

CloseDevice (devicemsg); 
DeleteStdIO (devicemsg); 
DeletePort (deviceport); 

} 
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Das Programm ist dem obrigen absolut ähnlich. Diesmal heißt 
der Befehl jedoch IND_SETMTYPE, und in devicemsg- 
>io_Data wird ein Flag übergeben. Laut dem Headerfile devi- 
ces/gameport.h gibt es hierbei fünf Möglichkeiten: 

GPCT_ALLOCATED: Port ist schon benutzt. 

GPCT_NOCONTROLLER: Kein Controller mehr. Die Maus¬ 
steuerung per Tastatur geht allerdings immer noch, da die 
Tastatur nicht hierüber beeinflußt wird. 

GPCT_MOUSE: Steuerung des Mauszeigers durch die ganz nor¬ 
male Maus. 

GPCT_RELJOYSTICK: Joystick kontrolliert Mauszeiger. 

GPCT_ABSJOYSTICK: Vermutlich Trackball - da wir jedoch 
über keinen verfügen, konnte das nicht nachgeprüft werden. 

Bei Aufruf erwartet das Programm wieder ein Argument: 

m: schaltet auf Maus um. 

j: schaltet auf Joystick um. 


3.4.3 Zugriff auf den Drucker 

Auch der Drucker ist ein Device, und deshalb genauso leicht 
anzusprechen wie die Maus. Trotzdem ist unser Beispielpro¬ 
gramm um einiges länger. Dies liegt daran, daß noch einige zu¬ 
sätzliche Funktionen aufgeführt werden müssen, die für die 
Programmierung des Druckers unabdingbar sind. Diese Funktio¬ 
nen bringen Sie am besten in einer Bibliothek unter; binden Sie 
diese Bibliothek dann zu jedem Programm, das auf den Drucker 
zugreift. 
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Hier nun ein kleines Beispielprogramm, das den aktuellen Screen 
auf den Drucker ausgibt: 

ttinclude "exec/types,h" 
tfinclude "exec/exec.h" 
tfinclude ”intuition/intuition. h” 
tfinclude “devices/printer. h" 


extern APTR AllocMemO; 


Union printerlO 

{ 

struct IOStdReq ios; 
struct IODRPReq iodrp; 
struct IOPrtCmdReq iopc; 


struct IORequest *CreateExtIO (ioReplyPort, size) 
struct MsgPort ^ioReplyPort; 

LONG size; 

{ 

struct IORequest *ioReq; 


if (ioReplyPort == 0) 

return ((struct IORequest *) 0); 


ioReq = (struct IORequest *) AllocMem (size, MEMF„CLEAR 
MEMF„PUBLIC); 
if (ioReq == 0) 

return ((struct IORequest *) 0); 


ioReq->io„Message. rnn„Node. ln_Type = NT„MESSAGE; 

ioReq->io_Message. rnn_Node. ln„Pri = 0; 

ioReq->io„Message.mn_ReplyPort = ioReplyPort; 
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return (ioReq); 

> 


DeleteExtIO (ioExt, size) 
struct IORequest *ioExt; 

LONG size; 

{ 

ioExt->io_Message. mn_Nöde. ln_Type = Oxff; 
ioExt->io_Device = (struct Device *) -1; 
ioExt->io_Unit = (struct Unit *) -1; 


FreeMem (ioExt, size); 

} 


int OpenPrinter (request) 
union printerlO *request; 

{ 

return (OpenDevice ("printer.device", 0, request, 0)); 

} 


ClosePrinter (request) 

union printerlO *request; 

{ 

CloseDevice (request); 

} 


int DumpRPort (request, rastPort, colorMap, modes, sx, sy, s 
w, sh, de, dr, s) 
union printerlO *request; 
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struct RastPort *rastPort; 
struct ColorMap *colorMap; 

ÜLONG raodes; 

UWORD sx, sy, sw, sh; 

LONG de, dr; 

UWORD s; 

request->iodrp.io_Command = PRD„DUMPRPORT; 
request->iodrp.io^RastPort = rastPort; 
request->iodrp. io_ColorMap = colorMap; 
request->iodrp.io_Modes = modes; 
request->iodrp. io_SrcX = sx; 
request->iodrp. io_SrcY = sy; 
request->iodrp. io_SrcWidth = sw; 
request->iodrp. io_SrcHeight = sh; 
request->iodrp.io_DestCols = de; 
request->iodrp.io_DestRows = dr; 
request->iodrp. io_Special = s; 


return (Do 10 (request)); 

} 


union printerlO *request; 


struct IntuitionBase *IntuitionBase; 


main () 

{ 

struct RastPort *rastport; 
struct ColorMap *colormap; 
int modes, width, height, error; 
struct Port *printerPort; 
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IntuitionBase = (struct IntuitionBase *) 

OpenLibrary ("intuition.library", 0) 

if (IntuitionBase == NULL) 

{ 

printf ("Intuition-Library laesst sich nicht oeffnen!! 
' \n"); 

exit (FALSE); 

} 


rastport = &(IntuitionBase->ActiveScreen->RastPort); 
colormap = IntuitionBase->ActiveScreen->ViewPort.ColorMap 


raodes = IntuitionBase->ActiveScreen->ViewPort.Modes; 

width = IntuitionBase->ActiveScreen->ViewPort.DWidth; 
height = IntuitionBase->ActiveScreen->ViewPort.DHeight; 


printerPort = (struct Port *) CreatePort (0, 0); 
if (printerPort == NULL) 

{ 

printf ("Ich bekomme keinen Port!i!\n"); 
CloseLibrary (IntuitionBase); 
exit (FALSE); 

} 


request = (union printerlO *) 

CreateExtIO (printerPort, sizeof (union pr 

interIO)); 

if (request == NULL) 

{ 
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printf ("CreateExtIO klappt nicht!!1\n”); 
DeletePort (printerPort); 

CloseLibrary (IntuitionBase); 
exit (FALSE); 


if (OpenPrinter (request) 1= NULL) 

{ 

printf ("Printer laesst sich nich oeffnen!! \ \n"); 
DeleteExtIO (request, sizeof (union printerlO)); 
DeletePort (printerPort); 

CloseLibrary (IntuitionBase); 
exit (FALSE); 

> 


error = DumpRPort 

( 

request, rastport, colorroap, modes, 

0, 0, width, height, width, (height * 2), 
SPECIALJULLROWS j SPECIAL_FULLCOLS j SPEC 

IAL_ASPECT 

); 

if (error 1= NULL) 

printf ("Hm, irgendwas hat nicht ganz geklappt...\n"); 


ClosePrinter (request); 

DeleteExtIO (request, sizeof (union printerlO)); 
DeletePort (printerPort); 

CloseLibrary (IntuitionBase); 


Das Programm besteht aus sechs Funktionen: 

CreateExtIO: Ähnelt der Funktion CreateStdIO; ist jedoch 

für Devices gedacht, die sich nicht mit den 
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gewöhnlichen Request-Strukturen zufrieden¬ 
geben - wie z.B. der Printer. 

Gegenstück zu DeleteStdIO. 

Öffnet den Drucker. 

Schließt den Drucker wieder. 

Gibt einen Rastport auf den Drucker aus. 

Unser eigentliches Programm. Macht nicht 
viel mehr als alle oberen Routinen der Reihe 
nach aufzurufen. 

Kommen wir nun zu den einzelnen Funktionen: 

1. CreateExtIO: 

Vergleichen wir CreateExtIO einmal mit der Funktion 
CreateStdIO: 


struct IOStdRea *CreateStdIO (ioReplvPort> 
struct MsgF’art *i oRepl vPort: 

•C 

struct loStdRea *ioStdReq; 

i i (ioReplvPort == O) 

return <(struct loStdReq *) O); 

ioStdReq » AllacMem (sizeof (*iaStdReq>. MEMF CLEAR ! MEMF PUBLIC): 
if (loStdReq =» Ö) 

return <(struct loStdReq *) O): 

ioStdReq~>io Message.mn_Node. 1n_Tvpe « NT„MESSAGE; 
ioStdR©q~>io_Meßsaqe.mn Node.1n_Pri = 0; 
ioStdReq~>io,„Message. mn.ReplyPort * ioReplyPort; 


DeleteExtIO: 
OpenPrinter: 
ClosePrinter: 
DumpRPort: 
main; 


return (loStdReq); 
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Es existiert nur ein Unterschied: Die IO soll sich nicht auf die 
Standard-Request-Struktur (IOStdReq) beziehen, sondern auf 
eine individuelle. Aus diesem Grund muß bei CreateExtIO die 
Größe der jeweiligen Request-Struktur mit als Argument über¬ 
geben werden. Ansonsten erfüllen beide Funktionen die gleichen 
Aufgaben: Sie reservieren den benötigten Speicherplatz auf einer 
4-Byte-Grenze, und belegen sogleich noch einige wichtige 
Komponenten innerhalb der reservierten Struktur; unter anderem 
wird so ein Messageport angegeben, über den das Programm mit 
dem Device kommunizieren kann. 


2. DeleteExtIO: 

Auch hier wieder ein Vergleich mit der normalen Funktion 
DeleteStdIO: 


DeleteSTdIO (ioStdReq) 

struct. ioStdReq *ioStdReq 5 

i oStdReq->i o Message, mn Nodce. ol n Type - üx-f-f ; 
ioStdReq->io Device = (struct Device *>~1; 
ioStdReq->io Unit » (struct. Unit *) -1; 


Freemem (ioStdReq, sizeof <*ioStdReq>; 
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Auch bei diesen beiden Funktionen liegt der einzige Unterschied 
darin, daß die eine auf die normale Request-Struktur zurück¬ 
greift, während die andere eine individuelle Struktur verwaltet. 
Aus diesem Grund kann die eine von einem festen Menge 
belegten Speicherplatzes ausgehen, während die andere die 
Anzahl der belegten Bytes als Argument übergeben muß. 

Ansonsten fabrizieren beide Funktionen wieder dasgleiche: die 
Devices, Units, Speicher und dergleichen wird wieder freigege¬ 
ben. 


3. OpenPrinter: 

Dürfte ohne weitere Erklärungen verständlich sein. 


4. ClosePrinter: 

Nähere Erklärungen siehe 3. 


5. DumpRPort: 

Hm, jetzt wird es schwieriger mit dem Erklären. Das Printer- 
Device verfügt über einen sehr leistungsfähigen Befehl: 
PRD_DUMPRPORT. Sendet man diesen Befehl an das Printer- 
Device, so versucht dieses, den angegebenen Rastport auf den 
Drucker auszugeben. Dazu kann man eine ganze Menge Angaben 
machen, die den Ausdruck stark variieren können: 

io_RastPort: Zeiger auf die RastPort-Struktur des auszugebenen 
Rastportes. Je nachdem, ob man den Rastport eines Screens, ei¬ 
nes Windows, oder eines Sonstwas nimmt, kann man einen 
Screen, ein Window, oder ein Sonstwas auf den Drucker ausge¬ 
ben. 

io_ColorMap: Zeiger auf ColorMap-Struktur. 
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io_Modes: Enthält die Darstellungsmodi für den auszugebenen 
Grafikteil (z. B. INTERLACE, HIRES, SPRITES). 

io_SrcX: X-Offset in den Rastport. 

io_SrcY: Y-Offset in den Rastport. 

io_SrcWidth: Weite des auszugebenen Teiles des Rastports. 
io_SrcHeight: Höhe dieses Teiles. 

io_DestCols: Zusammen mit io_DestRows und io_Special wird 
mit dieser Komponenten bestimmt, in welchem Format der 
auszugebene Rastport auf dem Printer erscheinen soll. 

io_DestRows: siehe io_DestCols. 

io_Special: Hier gibt es zur Zeit folgende Möglichkeiten (an die 
Makros muß immer noch COLS bzw. ROWS angehangen wer¬ 
den, je nachdem, ob sich das Flag auf Spalten oder Zeilen 
beziehen soll): 

SPECIAL_MIL: Ist dieses Flag gesetzt, werden die Kom¬ 
ponenten io_DestCols / io_DestRows als Tausenstel eines 
Inches interpretiert. 

SPECIAL_FULL: Der Rastport wird so groß wie über¬ 
haupt möglich ausgegeben - das heißt, so groß, wie es 
Preferences bzw. der Drucker erlaubt. 

SPECIAL_FRAC: ??? 

SPECIAL_ASPECT: Ist dieses Flag gesetzt, so kann u.U. 
vom Printer-Device eine Ausdehnung etwas verändert 
werden, damit ein wirklichkeitsgetreuer Ausdruck erfolgt. 

SPECIAL DENSITYMASK: ??? 


SPECIAL DENSITY1: ??? 
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SPECIAL_DENSITY2: ??? 
SPECIAL_DENSITY3: ??? 
SPECIAL DENSITY4: ??? 


Zu den letzten fünf Flags erbitten wir uns Zuschriften von 
Leuten, die mehr darüber wissen! 

Die Funktion DumpRPort macht nun nichts weiter, als alle diese 
Komponenten innerhalb des Requests mit den auf gerufenen 
Argumenten zu belegen, und sodenn den Request an das Prin¬ 
ter-Device abzuschicken. 

Durch die Funktion in Zeile DoIO wartet DumpRPort solange, 
bis sich das Device wieder meldet. 

Hat irgendwas nicht ganz geklappt, so gibt DoIO - und damit 
auch DumpRPort - den Wert Null zurück. 


6. main: 

Innerhalb von main wird zuerst einmal wie gehabt die Intuition- 
Library eröffnet. Tritt hier schon ein Fehler auf, so wird das 
Programm schleunigst mit einer entsprechenden Mitteilung ver¬ 
lassen. 

Sodann werden in den Zeilen 131 - 138 die Variablen rastport, 
colormap, modes, width und height mit den entsprechenden 
Werten aus der Screen-Struktur des gerade aktiven Screens ge¬ 
holt. Diese Variablen werden später an beim Aufruf der Funk¬ 
tion DumpRPort an dieselbige übergeben. Dadurch wird der 
aktuelle Screen auf den Drucker ausgegeben. 

Danach wird ein Messageport eröffnet. Über diesen Port soll 
nachher mit dem Printer-Device Signal-Austausch erfolgen. 
Gleich dahinter wird der Request initialisiert - mittels der am 
Anfang des Programmes aufgeführten CreateExtlO-Funktion. 
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Sollte dies alles fehlerlos vonstatten gegangen sein, so schließlich 
in der Zeile 173 die Funktion DumpRPort aufgerufen. Wir 
möchten gerne den Drucker voll ausnutzen, und dennoch ein 
wirklichkeitsgetreues Bild haben - also setzen wir die Flags 

SPECIAL_FULLROWS, SPECIALFULLCOLS und SPE- 

CIAL_ASPECT. Danach wird wieder alles geschlossen, und das 
Programm ist fertig. 

Das Printer-Device verfügt noch über weitere Befehle außer 
PRT_DUMPRPORT. Diese führen wir jetzt hier auf - komplett 
mit den Komponenten, die für diese Befehle belegt werden 
müssen. 

FLUSH: Standard-Device-Befehl; veranlaßt das Device, 
alle IO augenblicklich abzubrechen. 

PRD_PRTCOMMAND: Mittels dieses Befehles kann ein 
Befehl an den Drucker gesendet werden. Schauen Sie sich 
dazu folgende kleine Routine an: 


int PrintCommand (request, command, pO, pl, p2, p3) 
Union printerlO *requeßt; 
int command, pO, pl, p2, p3; 

{ 

request->iopc.io_Command = PRD_PRTCOMMAND; 

request->iopc.io_PrtCommand = command; 

request->iopc-io_ParmO = pO; 

request->iopc.io JParml = pl; 

request->iopc.io_Parm2 = p2; 

request->iopc.io_Parm3 = p3; 


} 


return (DoIO (request)); 
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Mittels dieser kleinen Routinen können Befehle zum Drucker 
gesandt werden. Ein Beispiel für den Aufruf dieser Routine: 

PrintCommand (request, aSGR4, 0, 0, 0, 0); 

Dieser Aufruf schaltet das automatisch Unterstreichen an (sofern 
der Drucker über diese Option verfügt). Der Befehl aSGR4 
stammt aus dem Include-File devices/printer.h und entspricht 
der Escape-Sequence ESC + M [4m". Da das Include-File devi¬ 
ces/printer.h mit diesen Befehlen nur so gespickt ist, drucken 
wir es hier ab: 

ttifndef DEVICES_PRINTER_H 

ttdefine DEVICES_PRINTER_H 

/*********************************************************************/ 
/* Commodore-Aroiga Ine. */ 

/* printer.h */ 

/X********************************* ********* **************** **********/ 

/********************************************>************************** 
* 

* Printer device command definitions 

* 

* Source Control 

* - 

* $Header: printer.h,v 1.2 85/10/09 16:16:10 kodiak Exp $ 

* 

* $Locker: $ 

* 

*********************************************************************/ 

ttifndef EXEC_NODES_H 

ttinclude "exee/nodes.h" 
ttendif 

ttifndef EXEC_LISTS„H 

ttinclude ’exec/liets.h" 
ttendif 

ttifndef EXEC_PC)RTS_H 

ttinclude "exec/portß.h” 
ttendif 

ttdefine PRD_RAWWRITE (CMD_NONSTD+0) 

ttdefine PRD_PRTCOMMAND (CMD_NONSTD+1) 

ttdefine PRD_DUMPRPORT (CMD_NONSTD+2) 

/* Printer coromand definitione */ 


ttdefine 

aRIS 

0 

/* 

ESCc 

reeet 

ISO 

*/ 

ttdefine 

aRIN 

1 

/* 

ESCttl 

initialize 

+++ 

*/ 

ttdefine 

alND 

2 

/* 

ESCD 

lf 

ISO 

*/ 

ttdefine 

aNEL 

3 

/* 

ESCE 

return,lf 

ISO 

*/ 

ttdefine 

aRI 

4 

/* 

ESCM 

reverse lf 

ISO 

*/ 
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ttdefine 

aSGRO 

5 

/* 

ESC[0m normal char set 

ISO 

*/ 

ttdefine 

aSGR3 

6 

/* 

ESC[3m italics on 

ISO 

*/ 

ttdefine 

aSGR23 

7 

/* 

ESC[23m italics off 

ISO 

*/ 

ttdefine 

aSGR4 

8 

/* 

ESC[4m underline on 

ISO 

*/ 

ttdef ine 

aSGR24 

9 

/* 

ESC[24m underline off 

ISO 

*/ 

ttdef ine 

aSGRl 

10 

/* 

ESC[lm boldface on 

ISO 

*/ 

ttdefine 

aSGR22 

11 

/* 

ESC[22m boldface off 

ISO 

*/ 

ttdef ine 

aSFC 

12 

/* 

SGR30-39 set foreground color 

ISO 

*/ 

ttdef ine 

aSBC 

13 

/* 

SGR40-49 set background color 

ISO 

*/ 

ttdef ine 

aSHORPO 

14 

/* 

ESC[0w normal pitch 

DEC 

*/ 

ttdef ine 

aSHORP2 

15 

/* 

ESC[2w elite on 

DEC 

*/ 

ttdefine 

aSHORPl 

16 

/* 

ESC[lw elite off 

DEC 

*/ 

ttdef ine 

aSH0RP4 

17 

/* 

ESC[4w Condensed fine on 

DEC 

*/ 

ttdef ine 

aSHORP3 

18 

/* 

ESC[3w Condensed off 

DEC 

*/ 

#define 

aSHORP6 

19 

/* 

ESC[6w enlarged on 

DEC 

*/ 

ttdef ine 

aSH0RP5 

20 

/* 

ESC[5w enlarged off 

DEC 

*/ 

ttdef ine 

/ 

ttdefine 

aDEN6 

21 

/* 

ESC[6"z shadow print on 

DEC 

(sort of) * 

aDEN5 

22 

/* 

ESC[5'*z shadow print off 

DEC 

*/ 

ttdef ine 

aDEN4 

23 

/* 

ESC[4"z doublestrike on 

DEC 

*/ 

ttdef ine 

aDEN3 

24 

/* 

ESC[3''z doublestrike off 

DEC 

*/ 

ttdef ine 

aDEN2 

25 

/* 

ESC[2"z NLQ on 

DEC 

*/ 

ttdefine 

aDENl 

26 

/* 

ESC[ 1"z NLQ off 

DEC 

*/ 

ttdef ine 

aSUS2 

27 

/* 

ESC[2v superscript on 

+++ 

*/ 

ltdef ine 

aSUSl 

28 

/* 

ESC[lv superscript off 

+++ 

*/ 

ttdef ine 

aSÜS4 

29 

/* 

ESC[4v subscript on 

+++ 

*/ 

ltdef ine 

aSUS3 

30 

/* 

ESC[3v subscript off 

+++ 

*/ 

ltdef ine 

aSUSO 

31 

/* 

ESC[0v normalize the line 

+++ 

*/ 

ltdef ine 

aPLO 

32 

/* 

ESCL partial line up 

ISO 

*/ 

ltdef ine 

aPLD 

33 

/* 

ESCK partial line down 

ISO 

*/ 

ltdef ine 

aFNTO 

34 

/* 

ESC(B US char set 

DEC 

*/ 

ltdef ine 

aFNTl 

35 

/* 

ESC(R French char set 

DEC 

*/ 

ltdef ine 

aFNT2 

36 

/* 

ESC(K German char set 

DEC 

*/ 

ltdef ine 

aFNT3 

37 

/* 

ESC(A UK char set 

DEC 

*/ 

ltdef ine 

aFNT4 

38 

/* 

ESC(E Danish I char set 

DEC*/ 

ltdef ine 

aFNT5 

39 

/* 

ESC(H Sweden char set 

DEC*/ 

ltdef ine 

aFNT6 

40 

/* 

ESC(Y Italian char set 

DEC 

*/ 

ltdef ine 

aFNT7 

41 

/* 

ESC(Z Spanish char set 

DEC 

*/ 

ltdef ine 

aFNT8 

42 

/* 

ESC(J Japanese char set 

+++ 

*/ 

ltdef ine 

aFNT9 

43 

/* 

ESC(6 Norweign char set 

DEC 

*/ 

ltdef ine 

aFNTIO 

44 

/* 

ESC(C Danish II char set 

+++ 

*/ 

ltdef ine 

aPROP2 

45 

/* 

ESC[2p proportional on 

+++ 

*/ 

ltdef ine 

aPROPl 

46 

/* 

ESC[lp proportional off 

+++ 

*/ 

ltdef ine 

aPROPO 

47 

/* 

ESC[0p proportional clear 

+++ 

*/ 

ltdef ine 

aTSS 

48 

/* 

ESC[n E set proportional offset 

ISO 

*/ 

ltdef ine 

aJFY5 

49 

/* 

ESC[5 F auto left justify 

ISO 

*/ 
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#define 

aJFY7 

50 

/* 

ESC[7 F 

auto right justify 

ISO 

*/ 

#define 

aJFY6 

51 

/* 

ESC[6 F 

auto full justify 

ISO 

*/ 

#define 

aJFYO 

52 

/* 

ESC[0 F 

auto justify off 

ISO 

*/ 

#define 

/ 

#define 

/ 

aJFY3 

53 

/* 

ESC[3 F 

letter space (justify) 

ISO 

(special) 

aJFYl 

54 

/* 

ESC[1 F 

word fill(auto center) 

ISO 

(special) 

#define 

aVERPO 

55 

/* 

ESC[0z 

1/8" line spacing 

+++ 

*/ 

#define 

aVERPl 

56 

/* 

ESC[lz 

1/6" line spacing 

+++ 

*/ 

#define 

aSLPP 

57 

/* 

ESC Cnt 

set form length n 

DEC 

*/ 

#define 

aPERF 

58 

/* 

ESC[nq 

perf skip n (n>0) 

+++ 

*/ 

#define 

aPERFO 

59 

/* 

ESC[0q 

perf skip off 

+++ 

*/ 

#define 

aLMS 

60 

/* 

ESC#9 

Left margin set 

+++ 

*/ 

#define 

aRMS 

61 

/* 

ESC#0 

Right margin set 

+++ 

*/ 

#define 

aTMS 

62 

/* 

ESC#8 

Top margin set 

+++ 

*/ 

#define 

aBMS 

63 

/* 

ESC#2 

Bottom marg set 

+++ 

*/ 

#define 

aSTBM 

64 

/* 

ESC[Pnl: 

1 Pn2r T&B margins 

DEC 

*/ 

#define 

aSLRM 

65 

/* 

ESC[Pnl; 

;Pn2s L&R margin 

DEC 

*/ 

#define 

aCAM 

66 

/* 

ESC#3 

Clear margins 

+++ 

*/ 

#define 

aHTS 

67 

/* 

ESCH 

Set horiz tab 

ISO 

*/ 

#define 

aVTS 

68 

/* 

ESCJ 

Set vertical tabs 

ISO 

*/ 

#define 

aTBCO 

69 

/* 

ESC[0g 

Clr horiz tab 

ISO 

*/ 

#define 

aTBC3 

70 

/* 

ESC[3g 

Clear all h tab 

ISO 

*/ 

#define 

aTBCl 

71 

/* 

ESC[lg 

Clr vertical tabs 

ISO 

*/ 

#define 

aTBC4 

72 

/* 

ESC[4g 

Clr all v tabs 

ISO 

*/ 

#define 

aTBCALL 

73 

/* 

ESC#4 

Clr all h & v tabs 

+++ 

*/ 

#define 

aTBSALL 

74 

/* 

ESCHS 

Set default tabs 

+++ 

*/ 

#define 

aEXTEND 

75 

/* 

ESC[Pn"x extended commands 

+++ 

*/ 


struct IOPrtCmdReq { 


struct 

Message io_Message; 




struct 

Device *io_Device; 

/* 

device node pointer */ 


struct 

Unit *io_Unit; 

/* 

unit (driver private)*/ 


UWORD 

io_Command; 

/* 

device command */ 


UBYTE 

io_Flags; 




BYTE 

io_Error; 

/* 

error or warning num */ 


UWORD 

io_PrtCommand ; 

/* 

Printer command */ 


UBYTE 

io_ParmO; 

/* 

first command Parameter 

*/ 

UBYTE 

io__Parml; 

/* 

second command Parameter 

*/ 

UBYTE 

io_Parm2; 

/* 

third command Parameter 

*/ 

UBYTE 

io_Parm3; 

/* 

fourth command Parameter 

*/ 


struct IODRPReq { 

struct Message io_Message; 
struct Device *io_Device; 
struct Unit *io_Unit; 
UWORD io_Command; 

UBYTE io_Flags; 


/* device node pointer */ 
/* unit (driver private)*/ 
/* device command */ 
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BYTE io_Error; 

struct RaetPort *io_RastPort; 
struct ColorMap *io_ColorMap; 
ULONG io_Modee; 

UWORD io_SrcX; 

UWORD io_SrcY; 

UWORD io_SrcWidth; 

UWORD io_SreHeight; 

LONG io_DeetCols; 

LONG io_DestRows; 

UWORD iojSpecial; 

}; 

ttdefine SPECIAL_MILCOLS 0x001 

♦ / 

ttdefine SPECIAL_MILROWS 0x002 

% / 

ttdefine SPECIAL_FULLCOLS 0x004 

♦ / 

ttdefine SPECIAL_FULLROWS 0x008 

♦ / 

ttdefine SPECIAL_FRACCOLS 0x010 
LS */ 

ttdefine SPECIAL_FRACROWS 0x020 
WS */ 

ttdefine SPECIAL„ASPECT 0x080 
ttdefine SPECIAL_DENSITYMASK OxfOO 
ttdefine SPECIAL JDENSITY1 0x100 
ttdefine SPECIAL_DENSITY2 0x200 
ttdefine SPECIAL__DENSITY3 0x300 
ttdefine SPECIALJDENSITY4 0x400 

ttdefine PDERR_CANCEL 1 

t */ 

ttdefine PDERR_NOTGRAPHICS 2 

♦ / 

ttdefine PDERR_INVERTHAM 3 

int */ 

ttdefine PDERR_BADDIMENSION 4 
ttdefine PDERR JDIMENSIONOVFLOW 5 

ttdefine PDERR_INTERNALMEMORY 6 
es */ 

ttdefine PDERRJBUFFERMEMORY 7 

ttendif 


/* error or warning num */ 

/* raster port */ 

/* color map */ 

/* graphieß viewport modes */ 
/* eource x origin */ 

/* source y origin */ 

/* eource x width */ 

/* eource x height */ 

/* destination x width */ 

/* destination y height */ 

/* Option flags */ 


/* DestCols specified in 1/1000" 

/* DestRows specified in 1/1000” 

/* make DestCols maximum possible 

/* make DeßtRowß maximum possible 

/* DestCols is fraction of FULLCO 

/* DestRows is fraction of FULLRO 

/* enßure correct aspect ratio */ 
/* masks out deneity bite */ 

/* lowest res */ 

/* next res */ 

/* next res */ 

/* hightes res */ 

/* user canceled a Printer timeou 

/* Printer cannot output graphieß 

/* cannot invert hold & modify pr 

/* print dimensions illegal */ 

/* print dimensions too large */ 
/* no memory for internal variabl 

/* no memory for print buffer */ 
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PRT_RAWWRITE: Schickt Daten zum Drucker. Dabei 
enthält die Komponente io_Length innerhalb der 
IOStdReq-Struktur innerhalb der printerlO-Union die 
Anzahl der Daten, und io_Data die zu sendenden Daten. 

RESET: Standard-Befehl. Setzt das Device in den An¬ 
fangs-Zustand. 

START: Standard-Befehl. Startet das durch den Standard- 
Befehl STOP angehaltene Device wieder. 

STOP: Standard-Befehl. Setzt ein Device in den Pause-Zu¬ 
stand. Das Device reagiert jetzt nur noch auf die Befehle 
START, FLUSH und RESET. 




Bücher zum Amiga 


AmigaBASIC für alle. Im ersten Teil werden Sie Schritt für 
Schritt - und vor allem auf verständliche Art und Weise - in die 
Programmierung des AMIGA eingeführt: Grafik und Sound 
gehören genauso dazu wie Datenverwaltung und Statistik. Im 
zweiten Teil finden Sie alle gelernten Befehle mit Syntax- und 
Parameterangaben zum schnellen Nachschlagen. Dazu gibt 
es Programme und Utilities in Hülle und Fülle. 


Rügheimer Spanik 



AMIGA 

BASIC 

Ein DATA BECKER Buch 


Aus dem Inhalt: 

- Das Videotitel-Programm zeigt die 
OBJECT-Animation 

- Das Balken- und Tortengrafik-Programm 
erklärt die Grafikbefehle 

- Das Malprogramm mit Windows, 
Pulldowns, Mausbefehlen, Füllmustern, 
Einlesen und Abspeichern von 
IFF-Bildern 

- Das Statistikdaten-Programm hilft, 
sequentielle Dateien zu verstehen 

- Die Datenbank zeigt den Umgang mit 
relativen Dateien 

- Das Sprachutility sorgt für mehr 
Verständnis bei der Sprachprogrammie- 
rung 

- Das Synthesizer-Programm führt Sie in 
die Welt der Töne, Wellenformen und 
Hüllkurven 


Rügheimer, Spanik 
AmigaBASIC 

Hardcover, 775 Seiten, DM 59,- 
ISBN 3-89011-209-9 



DAS STEHT DRIN: 

Amiga Tips und Tricks ist eine riesige Fundgrube für den 
Amiga-Besitzer. Viele Beispielprogramme in BASIC und C 
zeigen, wie man die fantastischen Möglichkeiten dieses 
Superrechners optimal nutzen kann. Und ganz nebenbei 
lernt man noch eine Menge über den Aufbau des Compu¬ 
ters und seine Programmierung. 

Aus dem Inhalt: 

- Nutzung der wichtigsten Libraries von BASIC aus: 
Graphic, DOS, Exec, Intuition 

- Nutzung der verschiedenen Disk-Fonts in BASIC- 
Programmen 

- Verschiedene Schrifttypen in BASIC-Programmen: 

Bold, Outline, Shadow 

- Zugriff auf das CLI von BASIC aus 

- Bewegbare Screens und Windows mit eigenen Titeln 

- Intuition in eigenen Programmen nutzen: Autorequest, 
Guru Meditation 

- Gesamte Directory-Struktur ausdrucken 

- Ein-/Ausgabehandling: Diskmonitor, Hardcopy von 
Windows und Screen 

- Speicherverwaltung: AllocMem und FreeMem 

- Filehandling in C: Anzahl freier Blöcke, File exist Prüfung, 
Filegröße, Filekommentar, Get Protection Prüfung 

- Zugriff auf Intuition am Beispiel eines einfachen Grafik¬ 
programms: Screen, Windows, Menue 

- Half Bright und Interlace Modus 

- Druckerhandling in C 

UND GESCHRIEBEN HABEN DIESES BUCH: 

Tobias Weltner und Ralf Hornig sind Erfolgsautoren der 
DATA BECKER Bücher ,64 Tips und Tricks Band 2‘ und ,128 
Tips und Tricks 1 . Während eines längeren Aufenthalts in den 
USA haben sich beide schon frühzeitig mit dem Amiga 
beschäftigen können. 


ISBN 3-89011 -211-0 


